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PR^ACE 

Inverse  problems  are  basic  problems  in  science,  in 
which  physical  systems  are  to  be  identified  on  the  basis 
of  experimental  observations.  It  is  shown  in  this  Memorandum 
that  a  wide  class  of  inverse  problem.s  may  be  readily  solved 
with  high  speed  computers  and  modern  computational  technique's. 
This  is  demonstrated  by  formulating  and  solving  some  inverse 
problems  which  arise  in  celestial  mechanics,  transport  theory 
and  wave  propagation.  FORTRAN  programs  are  listed  in  tlie 
Appendix.  Computational  aspects  of  inverse  problems  are  of 
interest  to  physicists,  engineers  and  biologists  who  are 
engaged  in  system  identification,  in  the  planning  of  experi¬ 
ments  and  the  analysis  of  data,  and  in  the  construction  of 
mathematical  models.  This  study  was  supported  by  the  Advanced 
Research  Projects  Agency. 

The  author  wishes  to  express  her  gratitude  for  the 
inspiration  and  guidance  of  Professor  Sueo  Ueno  of  the 
University  of  Kyoto,  and  of  Dr.  Richard  Bellman  and  Dr. 

Robert  Kalaba  of  the  P.AND  Corporation. 


SUMMARY 


Inverse  problems  are  basic  problems  in  science^  in  which 
physical  systems  are  to  be  identified  on  the  basis  of  experi¬ 
mental  observations.  Inverse  problem?  are  especially  impor¬ 
tant  in  the  fields  of  astrophysics  and  astronomy,  for  their 
objects  of  investigation  are  frequently  not  observable  in  a 
direct  fashion.  Solar  and  stellar  structure,  for  example,  is 
estim.ated  from  the  study  of  spectra,  while  the  structure  of 
a  planetary  atmosphere  may  be  deduced  from  measurements  of 
reflected  sunlight. 

v^e.  show  that  a  wide  class  of  inverse  problems  may  now 
be  solved  with  high  speed  computers  and  modern  computational 
techniques.  Many  problems  may  be  formulated  in  terms  of  sys¬ 
tems  of  ordinary  differential  equations  of  the  form 

(1)  x=f(x,  a). 

Here.  t  is  the  independent  variable,  x  is  an  n-dimensional 
vector  whose  components  are  the  dependent  variables,  and  a 
is  an  nv  dimensional  vector  whose  components  represent  the 
structure  of  the  system.  For  instance,  in  an  orbit  determin¬ 
ation  problem,  Eqs.  (1)  are  the  dynamical  equations  of  motion, 
and  the  masses  of  the  bodies  involved  may  be  given  by  the 
vector  a.  When  the  system  parameters  and  a  complete  set  of 
initial  conditions, 

x(0)  ==  c  , 


(2) 
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are.  known,  an  integration  of  (1)  produces  the  solution  x(t) 
on  the  intervral  0  ^  c  <  T  .  This  is  done  speedily  and 
accurately  with  a  digital  computer. 

On  the  other  hand,  in  an  inverse  problem,  the  solution 
y:(t)  or  some  function  of  x(t)  is  known  at  various  times, 
while  the  parameters  are  not  directly  observab' 3.  We  wish 
to  determine  the  structure  of  the  system  as  given  by  the 
parameter  vector,  a,  and  a  complete  set  of  initial  conditions, 
c  .  We  regard  this  as  being  a  nonlinear  boundary  value  prob¬ 
lem  in  which  the  unknowns  are  some  of  the  c’s  and  a's  . 

We  require  that  the  solution  agree  with  the  observations. 


(3)  x(t^)  =  b^  , 


in  some  sense,  e.g.,  in  a  least  squares  sense. 

Frequently,  problems  which  do  not  naturally  occur  in 
the  form  of  systems  of  ordinary  differential  equations  may 
be  expressed  in  that  form  in  an  approximate  representation. 
In  this  thesis,  we  show  how  we  may  reduce  a  partial 
differential— integral  equation  to  a  system  of  ordinary  dif¬ 
ferential  equations  with  the  use  of  a  quadrature  formula. 
Also,  we  may  express  a  partial  differential  equation,  like 
the  wave  equation. 


(4) 


?  9 

3  u  1  0  ^u 

?^x^  c  ^t" 


in  the  desired  form  by  applying  Laplace  transform  methods 
which  remove  the  time  derivative.  Other  possibilities  are 
clearly  available. 
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Nonlinear  boundary  value  problems  can  be  solved  by  a 
variety  of  methods,  which  include  quasilinearization,  dynamic 
programming,  and  invariant  imbedding.  These  techniques  are 
especially  suited  to  modern  computers,  for  they  reduce  non¬ 
linear  boundary  value  problems  to  nonlinear  initial  value 
problems,  which  are  more  easily  treated  on  digital  computers. 

These  computational  ideas  are  illustrated  in  this  thesis 
by  actually  formulating  and  solving  some  inverse  problems 
which  arise  in  celestial  mechanics,  radiative  transfer,  neu¬ 
tron  transport  and  wave  propagation.  In  one  of  the  problems, 
we  estimate  the  stratification  of  a  layered  medium  from  re^ 
flection  data.  In  another,  we  determine  a  variable  wave 
velocity  by  observing  a  portion  of  the  transients  produced 
by  a  known  stimulus.  Numerical  experiments  are  conducted 
to  estimate  the  stability  of  the  methods  and  the  effect  of 
the  number  and  quality  of  observational  measurements.  Com¬ 
plete  FORTRAN  programs  are  given  in  the  Appendices. 

These  computational  aspects  of  inverse  problems  may 
prove  to  be  of  value  to  the  physicist,  engineer,  or  mathe¬ 
matical  biologist  who  wishes  to  determine  the  structure  of 
a  system  on  the  basis  of  observations.  These  ideas  may  be 
helpful  in  the  planning  of  experiments  and  in  the  choice  of  \ 

apparatus.  They  may  be  used  to  design  systems  which  have  | 

certain  desired  properties.  In  particular,  these  methods  f 

may  be  useful  in  the  construction  of  stellar  and  planetary  | 

models . 

I 
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CliAPTER  ONE 


INTRO ''uUTi  ON 


l.__  INTRODUCTION 

Inverse  problems  are  fund-unental  problems  of  science 
[1— 12j.  Man  has  always  sought  knowledge  of  a  physical  sys¬ 
tem  beyond  that  which  is  directly  observable.  Even  today, 
we  try  to  understand  the  dynamical  processes  of  the  deep 
interior  of  the  sun  by  observing  the  radiation  emerging  from 
the  sun’s  surface.  We  devluce  the  potential  field  of  an 
atom  from  nuclear  scattering  experiments.  The  underlying 
theme  is  the  relationship  between  the  internal  structure  of 
a  system  and  the  observed  output.  The  hidden  features  of 
the  system  are  to  be  extracted  from  the  experimental  data. 

Mathematical  treatment  of  physical  problems  has  been 
devoted  almost  exclusively  to  the  ’’direct  problem. ”  A 
complete  picture  of  the  system  is  assumed  to  be  given,  and 
equations  are  derived  which  describe  the  output  as  a  func¬ 
tion  of  the  system  parameters.  The  inverse  problem  is  to 
determine  the  parameters  and  structure  of  a  system  as  a 
function  of  the  observed  output. 
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One  can  solve  a  given  inverse  problem  by  solving  a 
series  of  direct  problems:  by  assuming  different  sets  of 
parameters j  determining  the  corresponding  outputs  from  the 
theoretical  equations,  and  comparing  theoretical  versus 
experimental  results.  By  trial  and  error,  one  may  find  a 
solution  which  approximately  agrees  with  the  experimental 
data.  This  is  not  a  very  efficient  procedure.  Another 
.^7ay  to  solve  an  inverse  problem  is  to  solve  analytically 
for  the  unknown  parameters  as  functions  of  the  measurements. 
This  method  generally  requires  much  abstract  mathematics 
and  simple  approximations  of  complex  functions.  The  result¬ 
ant  inverse  solution  may  be  valid  only  in  very  special  cir¬ 
cumstances  . 

What  we  seek  are  efficient,  systematic  procedures 
for  solving  a  wide  class  of  inverse  problems  -  procedures 
which  are  suitable  for  execution  on  high  speed  digital  com¬ 
puters.  Computers  are  currently  capable  of  integrating 
large  systems  of  ordinary  differential  equations,  given  a 
complete  set  of  initial  conditions,  with  high  accuracy. 

We  would  like  to  formulate  our  problems  in  terms  of  systems 
of  ordinary  differential  equations.  Partial  differential 
equations,  such  as  the  wave  equation. 


^  ^(x,t) 

^  2 

c  ,^t 


} 


■'prrr 
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may  be  reduced  to  systems  of  ordinary  differential  equations 
in  several  ways  which  include  the  use  of  Laplace  transform 
methods j  Fourier  decomposition,  and  finite  difference  schemes. 
Integro— differential  equations,  which  frequently  occur  in 
transport  theory,  may  be  reduced  to  systems  of  ordinary  dif¬ 
ferential  equations  by  approximating  the  definite  integrals 
by  finite  sums  using  Gaussi an  and  other  quadrature  formulas. 
Other  means  of  formulating  problems  in  terms  of  ordinary  dif¬ 
ferential  equations  are  possible. 

We  desire  to  formulate  our  inverse  problem  in  such  a 
way  that  we  deal  with  ordinary  dif ferei.tial  equations.  First, 
as  we  shall  show,  we  may  express  the  problem  as  a  nonlinear 
boundary  value  problem,  in  which  we  seek  a  complete  set  of 
initial  conditions.  The  unknown  system  parameters  will  be 
calculated  directly  from  the  initial  conditio  is.  Next,  we 
resolve  the  nonlinear  boundary  value  problem,  ordinarily  a 
difficult  task,  by  the  use  of  some  sophisticated  techniques 
[13—24].  We  may  replace  the  nonlinear  boundary  value  prob¬ 
lem  by  a  rapidly  converging  sequence  of  linear  boundary 
value  problems  via  the  technique  of  quasilinearization 
[1-3,16,17],  We  may,  alternatively,  treat  the  problem  as 
a  multi-stage  decision  process  with  the  use  of  dynamic  pro¬ 
gramming  [18].  Or,  we  may  solve  directly  for  the  missing 
initial  conditions  by  applying  the  concept  of  Invariant 


*s  a 


I 

— WnfeMwa. 


imbedding  fl3.24].  From  the  solution  of  the  nonlinear 
boundary  value  problem,  we  immediately  obtain  knowledge  of 
the  internal  structure  of  the  system. 

In  this  thesis,  we  discuss  some  of  these  relatively 
new  concepts,  computational  techniques,  and  applications. 

Our  examples  from  celestial  mechanics,  transport  theory 
and  wave  propagation  are  physically  motivated.  No  special¬ 
ized  background  is  required  on  the  part  of  the  reader  beyond 
a  knowledge  of  elementary  physics.  We  intend  to  be  self- 
contained  in  the  mathematical  derivations,  except  for  those 
raatters  which  are  well— treated  elsewhere,  such  as  dynamic 
programming,  linear  programming,  and  the  numerical  inver¬ 
sion  of  Laplace  transforms.  Again,  no  special  mathematical 
knowledge  is  needed  beyond  the  level  of  ordinary  differential 
equations  and  linear  algebraic  equations.  We  will,  however, 
assume  that  we  have  at  our  disposal  a  high-speed  digital 
computer  with  a  memory  of  about  32,000  words,  plus  a  library 
of  computer  routines  for  nijmerical  integration,  matrix  inver¬ 
sion,  and  linear  programming.  Our  basic  assumption  is  that 
our  computer  can  integrate  large  systems  of  ordinary  dif¬ 
ferential  equations  rapidly  and  accurately  f25,26]. 

In  the  first  chapter,  we  v/ish  to  emphasize  some  impor¬ 
tant  ideas.  We  ate  given  geocentric  observations  of  a  heav¬ 
enly  body,  taken  at  various  times  [27—29].  The  orbit  of 
this  b''dy  lies  in  the  potential  field  created  by  the  sun 
and  an  unknowmi  perturbing  mass.  We  show  how  the  mass  may 
be  identified  and  *•  he  orbital  elements  found.  For  simplicity. 
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we  assume  that  the  position  of  the  perturbing  mass  is  given; 
if  desired,  the  position  as  a  function  of  time  could  also 
be  estimated.  Since  we  are  virtually  forced  by  our  modern 
computers  to  take  a  fresh  look  at  old  problems,  we  are  not 
concerned  with  conic  sections.  A  new  methodology,  based  on 
high  speed  digital  computers,  is  developed.  The  technique 
of  quasilinearization,  -lescribed  in  this  chapter,  enables 
us  to  solve  this  inverse  problem  with  a  minimum  of  effort. 

In  spite  of  the  newness  of  this  solution  of  a  long-standing 
problem  in  celestial  mecnanics,  we  employ  this  example  for 
purely  illustrative  purposes. 

Transport  theory  is  intimately  concerned  with  the 
determination  of  radiation  fields  within  scattering  and 
absorbing  media  [30—38].  Our  first  problem  in  radiative 
transfer  (Chapter  Two)  serves  to  exemplify  the  philosophy 
and  application  of  invariant  imbedding.  We  derive  the  basic 
integro-dif ferential  equation  for  the  diffuse  reflection 
function,  and  we  reduce  it  to  a  system  of  ordinary  differen¬ 
tial  equations  by  the  method  of  Gaussian  quadrature.  Then 
we  formulate  an  inverse  problem  for  the  determination  of 
layers  in  a  medium  from  knowledge  of  the  diffusely  reflected 

light.  We  outline  the  computational  procedure,  and  we  present 
our  results.  In  Chapter  Three,  our  setting  is  again  an  inhomo¬ 
geneous  scattering  medium.  We  investigate  the  effects  of 
errors  in  our  measurements ,  the  nvcuber  and  quality  of  the 
observations,  and  the  criterion  function,  on  the  estimates 
of  the  medium.  Our  criteria  are  either  of  least  squares 
type,  which  leads  to  linear  algebraic  equations,  or  of 
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minimax  form,  which  is  suitable  for  linear  programming.  We 
also  consider  a  variation  of  the  inverse  problem,  the  contruc 
tion  of  a  model  atmosphere  according  to  certain  specifications. 
In  Chapter  Four,  we  consider  an  ai. isotropically  scattering 
medium.  The  phase  function  is  to  be  determined  on  the  basis 
of  measurements  of  diffusely  reflected  radiation  in  various 
directions . 

An  inverse  problem  in  neutron  transport  (Chapter  Five) 
is  solved  in  a  novel  way.  The  dynamic  programming  approach 
leads  to  a  determination  of  absorption  coefficients  in  a 
rod,  from  measurements  of  internal  fields.  The  calculation 
is  done  by  an  exact  method,  and  is  compared  with  a  calcula¬ 
tion  based  on  an  approximate  theory.  The  aoproximate  theory 
is  accurate  and  less  costly  in  computing  time. 

As  we  have  already  mentioned,  the  partial  differen¬ 
tial  wave  equation  may  be  reCuced  to  a  system  of  ordinary 
differential  equations  by  Laplace  transform  methods  or  by 
Fourier  decompositions.  In  Chapter  Six,  we  deal  with  ordin¬ 
ary  differential  equations  for  the  Laplace  transforms  of 
the  disturbances.  In  these  equations,  time  appears  on^y 
as  a  parameter.  Our  measurements  of  the  disturbances  at 
various  times  are  converted  to  the  corresponding  transforms 
by  means  of  Gaussian  quadrature.  We  solve  a  nonlinear 
boundary  value  problem  in  order  to  determine  the  system 
parameters.  The  inverse  Laplace  transforms  may  be  obtained 
by  a  numerical  inversion  techniqu  [22] . 


In  Chapter  Seven^  we  use  a  decomposition  of  the  form 
u(xjt)  =  u(x)a  corresponding  to  a  steady -state  situa¬ 

tion  of  wave  propagation.  vVe  probe  an  inhomogeneous  slab 
with  waves  of  different  frequencies  and  we  "measure”  the 
reflection  coefficients.  We  wish  to  determine  the  index  of 
refraction  as  a  function  of  distance  in  the  medium.  Invar¬ 
iant  imbedding  leads  to  ordinary  differei  ..ial  equations  for 
the  reflection  coefficients,  with  known  initial  conditions. 
The  unknovm  index  of  refraction  in  the  equations  and  the 
observations  of  terminal  values  of  the  reflection  coeffie— 

cients  make  this  a  nonlinear  boundary  value  problem.  Quasi- 
linearization  is  used  to  solve  the  problem,  and  computational 
results  are  presented. 

The  final  chapter  is  a  general  disc  ssion  of  inverse 
problems.  Appendices  of  all  the  FORTRAN  programs  written 
for  the  computational  experiments  are  included. 


2.  DLTERMINATION  OF  POTENTIAL 

Consider  the  motion  of  a  particle  (or  a  wave)  in  a 
potential  field  V  =  V(x,  y,  z;  k^,  ...,  k^)  where 

we  recognize  the  dependence  on  physical  parameters  k^^, 

k„,  . . . ,  k.  Suppose  that  these  parameters  are  unknown. 
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and  that  we  have  observations  of  the  motion  of  the  particle 
at  various  times.  w'e  wish  to  determine  the  potential  func¬ 
tion  on  the  basis  of  those  measurements. 

Consider  the  following  situation.  A  heavenly  body 
H  of  mass  m  moves  in  the  potential  field  created  by  the 
sun  and  a  perturbing  body  P,  whose  masses  are  M  and  m 

P’ 

respectively,  and  m  m^  --  M.  All  of  the  bodies  con¬ 
cerned  lie  in  the  ecliptic  plane.  The  potential  energy 
varies  inversely  as  the  distance  from  the  sun,  r^,  and 
from  the  perturbing  body,  r^, 

k  k 

(1)  V  =  -  -  -J'.  . 

r  r 

s  p 

Here,  k^  and  k^  are  the  parameters 
=  V  m  M,  kp  =  Y  m  nip  , 

where  y  is  the  constant  of  gravitation.  The  quantity 
kg  may  be  assumed  to  be  known.  We  choose  our  units  so 
that  kg  -  m,  or  \  Mh  1.  The  parameter  k^  is  unknoiNm 
and  kp  <  k^.  We  wish  to  determine  kp  and  thus  V  by 
obsem/ing  the  motion  of  H. 

Let  us  take  the  plane  of  the  ecliptic  to  be  the 
(x,  y)  plane.  The  sun  is  situated  at  the  origin,  the 
earth  at  the  point  (1,  0),  and  the  perturbing  body  at 
the  location  (-,  p)  =  (4^  1).  The  earth  only  enters  into 
the  discussion  as  the  point  from  which  measurements  are 
taken.  Its  mass  is  neglected.  The  potential  function  is 
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(3)  V(x,y;  k^)  = 


172 


k 

_ P_ 


[(=-x)^+("l-y)2j 


T72 


Angular  observations  of  H  are  made  at  various  times 

<  i  =  1,  2,  5.  Fig-  1  illustrates  the  physical  situ¬ 

ation.  Each  solid  arrow  points  to  H  at  a  given  time  t^- 
The  angle  between  the  line  of  sight  and  the  x  axis  is  the 
observation.  For  comparison,  see  the  dashed  arrows  which 
point  to  H  when  the  mass  of  P  Is  exactly  zero,  i.e., 

when  k  =0.  It  is  obvious  that  k  is  small. 

P  P 

The  equations  of  motion  are 

+ _ 

[(?-x)2+(Ti-y)2]3/2 

+ 

[(5-x)^4-(ri-y)2]3/2 


is  the  mass  of  P  relative  to  the  mass  of  the  sun.  At 
times  t . .  we  obtain  the  angular  data  9(t.)  which  are, 
in  radians, 

Pi(O.O)  =  0.0  . 

<1(0.  5)  =  0.  252188  , 

(6)  9(1.0)  =  0.507584  , 

0(1. 5)  =  0. 763641  , 

P(2.0)  =•■  1.01929  . 

We  wish  to  determine  a,  x(0),  x(0),  y(0),  y(0)  so  that  the 


(4) 


•v  =  -X 


y  =  — Y 


(x"+y") 
where  the  parameter  a. 


372 


(5) 


k  m 
s 


conditions 


ervations  of  a  he=>venly  body. 
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(7) 


-y(ti ) 

tan  e(t.)  = 


are  fulfilled.  This  is  a  nonlinear  multipoint  boundary 
value  problem.  The  solution  of  this  problem  gives  the  rela¬ 
tive  mass  of  the  perturbing  body  and  the  orbit  of  H  as  a 
function  of  time.  The  potential  (3)  is  determined  when  a 
is  known.  We  may  consider  the  problem  then  to  be  the  deter¬ 
mination  of  the  orbit  [19^23,27—29], 

For  an  arbitrary  potential  field,  we  are  unable  to 
express  the  solution  analytically.  We  solve  the  problem 
computationally  using  the  technique  of  quasilinearization  [16,17]. 


3.  QUASILINEARIZATION,  SYSTEM  IDENTIFICATION  AND  NONLINEAR 
BOUNDARY  VALUE  PROBLEMS 

Consider  a  physical  system  or  process  which  is  described 
by  the  system  of  N  equations 

(1)  X  =  f(x,  n), 

where  x  is  a  vector  of  dimension  N,  a  function  of  inde¬ 
pendent  variable  t,  with  the  N  initial  conditions 

(2)  x(0)  =  c. 

The  vector  x  describes  the  state  of  the  system  at  "time" 
t,  and  ot  is  a  parameter  vector  of  the  system.  With  a. 
given,  Ens,  (1)  and  (2)  completely  describe  the  system,  for 
the  state  at  any  time  t,  x(t),  may  be  calculated  by  a 
numerical  integration  of  (1)  with  initial  conditions  (2). 

Now  let  us  suppose  that  we  have  a  system  described 
by  Eqs .  (1),  but  a  is  unknown  to  us,  and  the  initial  con¬ 
ditions  (2)  are  also  unknown.  However,  we  are  able  to  make 
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measurements  of  certain  components  of  the  state  of  the  sys 
tern  at  various  times  t^.  V/e  wish  to  identify  the  system  by 
determining  a,  and  we  wish  to  find  a  complete  set  of  initial 
conditions  x(0)  =  c  so  that  the  system  is  fully  described. 

A’e  think  of  the  system  parameter  vector  as  if  it  were  a 
dependent  variable  which  satisfies  the  vector  equation 

(3)  a  =  0 

with  the  unknown  initial  conditions 


(4)  a(0)  =  Qq. 

The  multipoint  boundary  value  problem  which  we  have  before 
us  is  to  find  the  complete  set  of  initial  conditions 

x(G)  =  c , 

(5) 

a(0)  =  Oq, 

such  that  the  solution  of  the  nonlinear  system 


(6) 


X  =  f(x,a) 
a  =  0, 


agrees  with  the  boundary  conditions 

(7)  x(t^)  =  b^, 

where  b.  is  the  observed  state  of  the  system  at  time  t.. 
Let  us  suppose  that  we  have  exactly  R  =  N  +  M  measurements 
of  the  first  component  of  x,  where  N  is  the  dimension  of 
X  and  M  is  the  dimension  of  a. 
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The  bo jndary  conditions  are  readily  modified  for  a 
two  point  boundary  value  problem,  or  for  more  than  R  obser 
vaticns .  or  for  other  types  of  measurements,  for  example 
linear  combinations  of  the  components  of  x. 

Our  approach  to  the  problem  is  one  of  successive  ai>- 
proximations .  We  solve  a  sequence  of  linear  problems.  We 
assume  only  t'- at  large  systems  of  ordinary  differential 
equations,  whether  linear  or  nonlinear,  may  be  accurately 
integrated  numerically  if  initial  conditions  are  prescribed, 
and  that  linear  algebraic  systems  may  be  accurately  resolved. 

Let  us  define  a  new  column  vector  x  of  dimension  R, 
having  as  its  elements  the  components  of  the  original  vector 
X  and  the  components  of  a. 


This  vector  of  dependent  variables  x(t)  satisfies  the  sys¬ 
tem  of  nonlinear  equations 


(9) 


X  =  f(x) 
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according  to  (6) .  and  it  has  the  unknown  initial  cc.nditions 

(10)  x(G)  =  c . 

according  to  (5).  The  boundary  conditions  are 

(11)  ^1(4)  ^  b.  .  i  =  1,  2 . R. 

Mathematically,  we  need  not  distinguish  between  the  components 
of  this  new  vector  x  as  state  variables  or  system  parameters. 

An  initial  approximation  starts  the  calculations. 
form  an  estimate  of  the  initial  vector  c,  and  we  integrate  sys¬ 
tem  (9)  to  produce  the  solution  x(t)  over  the  time  interval 
of  interest,  0  ^  t  -  T.  via  numerical  integration.  The 
quasilinearization  procedure  is  applied  iteratively  until  a 
convergence  to  a  solution  occurs,  or  the  solution  diverges. 

Let  us  suppose  that  w  have  completed  stage  k  of  our  calcula— 
tions  and  we  have  tne  current  approximation  x  (t).  In  stage 

k  +  1,  we  wish  to  calculate  a  new  approximation  x‘^'^^(t). 

k+1 

The  vector  function  x  (t)  is  the  solution  of  the 
Ijjiear  system 

(12)  x^"^^  =  f(x^)  +  J(x^)  (x^’^^-x'^). 


where  J(x)  is  the  Jacobian  matrix  with  elements 


(13) 


hf. 

J  .  .  =  — 
IJ  ax. 


Since  x 


is  a  solution  of  a  system  of  linear  differential 


equations,  we  know  from  general  theory  that  it  ma>  be  repre¬ 
sented  as  the  sum  of  a  particular  solution,  p(t),  and  a 


15- 


linear  combination  of  R  independent  solutions  of  the  homo¬ 
geneous  equations.  h’’(t),  i  =1,  2,  ....  R, 

(14)  x^*^^(t)  -•  p(t)  +  S  h^(t). 

i=l 

The  function  p  satisfies  the  equation 

(15)  p  =  f(x^)  +  J(x^)  (p  -  x^), 

and  for  convenience  we  choose  the  initial  conditions 

(16)  p(0)  =  0. 

The  functions  h^  are  solutions  of  the  homogeneous  systems 

(17)  h^  =  J(x^)  h^j 

and  we  choose  the  initial  conditions 

(18)  h  (0)  *=  the  unit  vector  with  all  of  its  components 

tIK 

zero ^  except  for  the  i  '  which  is  one. 

t 

The  h  (0)  form  a  linearly  independent  set.  If  the  interval 
(0,T)  is  sufficiently  small,  the  functions  h^(t)  are  also 
independent.  The  solutions  p(t),  h  (t)  are  produced  by 
nijmerical  integration  with  the  given  initial  conditions. 

There  are  R+1  systems  of  differential  equations,  each  with 
R  equations,  making  a  total  of  R(R+1)  equations  which  are 
integrated  at  each  stage  of  our  calculations. 

After  the  functions  p  and  h"^  have  been  found  over 
the  interval,  we  must  combine  them  so  as  to  satisfy  the 
boundary  conditions  (11), 


(19) 


Lb-- 


R 


bi  =  ‘  ^  ^  ^ . ^* 

j=l 

This  results  in  a  system  of  R  linear  algebraic  equations 

j 

for  the  determination  of  the  R  unknov>m  multipliers  c  . 
of  the  standard  form 


(20)  A  c  =  B, 


where  the  elements  of  the  RxR  matrix  of  coefficients  A 
are 


(21)  A.j=hi(t.). 

and  the  components  of  the  R-dimensional  column  vector  B 
are 


(22)  ®i  * ‘^i  -  phq)- 

Having  determined  the  multipliers,  we  now  know  a  com- 
plect  set  of  initial  conditions  for  the  (k+1)  stage. 

(23)  c  =  x^*^^(0)  =  p(0)  +  I.  c^  hj(0). 

.1=1 

Because  of  our  choice  of  initial  conditions  for  p  and  h-^  , 
the  initial  values  for  each  component  of  the  vector  x  are 
identical  with  the  multipliers  c-^ , 

(24)  c.  =  x^'^^O)  =  c^  ,  i  =  1,  2,  .  .  .  ,  R. 
Furthermore,  we  have  a  new  approximation  to  the  system  para¬ 


meter  vector  a. 
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(25) 


N+i 


=  1.  2 


M. 


k+1 

The  r.ew  approximation  x  (t)  for  the  interval  (0,T)  may 

be  produced  either  by  the  integration  of  the  linear  equations 

with  the  initial  conditions  just  found,  or  by  the  linear  com- 

s  t 

bination  of  p(t)  and  h(t).  The  (k+1)  cycle  is  com¬ 
plete  and  we  are  ready  for  the  (k+2)^^.  The  process  may  be 
repeated  until  no  further  change  is  noted  in  the  vector  c. 

The  quasilinearization  procedure  is  analogous  to 
Newton's  method  for  finding  roots  of  an  equation,  f(x)  =  0. 

If  x^  is  an  approximate  value  of  one  of  the  roots  of 
f(x),  then  an  improved  value  x^  is  obtained  by  applying 
the  Taylor  expansion  formula  to  f (x) ,  and  neglecting  higher 
derivatives , 


(26) 


f(xb  =  fCx”)  +  -  x°) 


Thus,  the  next  approximation  of  the  root  is 


(27) 


1  0  f(x^) 

X  =  X - 

f'(x®) 


0, 


In  quasilinearization,  if  the  function  x  (t)  is  an 
approxim.ate  solution  of  the  nonlinear  differential  equation, 


(28)  X  =  f(x)  . 

then  an  improved  solution  x^(t)  nay  be  obtained  in  the 
following  manner.  The  function  f(x)  is  expanded  around 
the  current  estimate  x^(t).  neglecting  higher  derivatives. 
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(29)  (ex'-)  =  4x°)  +  (x^  '’  . 

The  improved  approxiiaacioT)  x^(c)  is  the  solution  of  the 
linear  equation, 

(30)  y}  =  fCx*^)  +  (x^  x^)  . 


The  method  is  easily  extended  to  vector  functions,  as  we  have 

1  2  3 

seen.  The  sequence  cf  functions  x.  (t).  x  (t).  x  (t)  ,  .... 
may  be  shown  Co  converge  quadratically  in  the  limit[17].  Prac¬ 
tically  speaking,  a  good  initial  approximation  leads  to  rapid 
convergence,  with  the.  number  of  correct  digits  approximately 
doubling  with  each  additional  iteration.  On  Che  other  hand, 
a  poor  initial  approximation  may  lead  to  divergence. 

The  quasilinearization  technique  provides  a  systematic 
way  of  treating  nonlinear  boundary  value  probleras.  The  conv 
putational  solution  of  such  a  problem  is  broken  up  into  stages, 
in  which  a  large  system  of  ordinary  differential  equations 
is  integrated  with  known  initial  conditions,  and  a  linear 
algebraic  system  is  resolved.  The  initial  value  integration 
problem  is  well-suited  to  the  digital  computer.  k^h'.th  the  aid 
of  a  formula  such  as  the  trapezoidal  rule, 


(31)  f(c)dt  =  ^  (£(,  +  fO  +  ^  (f^  +  £2)  +  . 

0  ^  i. 


(f 


n- 


1  +  f  ) 
1  n 


the  integral  of  a  function  over  an  interval  is  rapidly  com¬ 
puted.  Moreover,  higher  order  methods  such  as  the  Runge 
Kutta  and  the  Adams  Moulton,  usually  of  fourth  order,  make  it 
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possible  to  solve  the  integration  probieiTi  accurately  and 

g 

rapidly.  The  accuracy  may  be  as  high  as  one  part  in  10  . 

The  solution  is  available  at  each  grid  point  tQ,  Cq  + 
tg  +  2' .  ....  t^ .  and  may  be  stored  in  the  computer's  memory 
for  use  at  some  future  time.  The  rapid-  access  storage  cap¬ 
ability  of  a  computer  such  as  the  IBM  7090  or  7044  is  32.000 
words.  The  integration  of  several  hundred  first  order  equa¬ 
tions  is  a  routine  affair. 

On  the  other  hand,  the  solution  of  a  linear  algebraic 
system  is  not  a  routine  matter,  computationally  speaking. 
vVhile  formulas  exist  for  the  numerical  inversion  of  a  matrix, 
the  solution  may  be  inaccurate.  The  matrix  may  be  ill- 
conditioned,  and  other  techniques  may  have  to  be  brought  into 
play  to  remedy  the  situation  [20].  The  storage  of  the  n^" 
approximation  for  the  calculation  of  the  (n  +  1)®^  approxi¬ 
mation  may  become  a  p  ‘oblem;  a  suggestion  for  overcoming 
this  difficulty  is  given  in  [21]. 


4.  SOLUTION  OF  THE  POTENTIAL  PROBLEM 

We  follov;  the  method  of  quasilinearization  to  identify 
the  unknown  mass  and  to  solve  the  problem  of  potential  determina¬ 
tion  of  Section  2.  The  nonlinear  system  of  equations  is 


(1) 


y  h 


0  =  0 


■  I  •  Ui  H  '  L  I 


with 


2  2 


=  (x  +  (y 


System  (1)  is  equivalent  to  a  svstem  of  five  first  order 
equations  for  x.  x,  y,  y.  and  a.  The  system  of  linear 
equations  for  the  (k+1)®^  stage  is 


•'  k+1 

X 


x*^  k  x*'^  =  ^ 

3  -  -r  ‘ 

r  s 


+  (x‘^+^  -  x*^)  {-  A  +  +  3aV-;)_2 

r^  s"^  s^ 

+  (y^+l  _  y^) 

+  (^>^+1  -  {-  3^'^}  , 

yk+1  =  {-  2^  -  } 

r  s"^ 


+  (yl'+l  yk)  {_  +  3^2  _  3,k(  k 

r  r  s  s”^ 


(a'^+l  -  ak)  {  ^ 


a  =0, 


where 


(4)  r^  =  (x^")^  +  (y^)2^  s2  ^  (x^_?)2  +  (y^_r|)2 
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We  express  the  solution  of  (3)  as  the  suni  of  a  particular 
solution  of  (3)  plus  a  linear  combination  of  five  independent 
solutions  cf  the  homogeneous  form  of  (3). 


(5) 


x^'^^Ct)  =  P^(t)  c^  hj(t)  , 

y^'^^(t)  =  p  (t)  c^  h:?^(t)  , 

y  j=i  y 

a^'^^Ct)  =  P  (t)  +.  c^  hj(t)  . 

a  a 


Here, the  symbol  p  (t)  is  meant  to  represent  the  x  com- 
ponent  of  the  particular  solution,'  which  is  a  vector  of  dimen¬ 
sion  five,  and  similarly  for  the  symbols  p  (t)  ,  p  (t).  The. 

y  ^ 

symbols  h^(t)  ,  h-^(t),  h'^(t)  respectively  correspond  to  tne 

X  V  Ou 

mf 

th 

X,  y,  and  a  components  of  the  j  homogeneous  solution 
vector,  for  j  =1,  2,  . . . ,  5,  The  system  which  the  par¬ 
ticular  solution  satisfies  is 


Px 


/  x^  k  x^-.^ 
I  _  _  a  — 

r  s 


} 


+  (p  -  X 


f  -1  T  k2  k  o  k,  k  ,s2> 

r  r  s  s 


(P„  -  y'') 


(6)... 


,  k\  r  X  1 

'pQ  "  ^  ^  1" . "T  i"  * 


p„  = 


k  ,  k  , 

+  (Px  - 

IT  S 


mam99m^--vmmK9^ 


’‘J''*.  .  — e  ■■ 
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+  (Py-y'')  { 

1 

r3 

.  k2 

+  ^y 

r 

k  «  k  /  k  V.  2 

-  4.  3  '  (y  rj) 

3  +  - 

s  s 

.  k 

+  (p,^  0-^) 

f-  3 
1 

n  1 

j  ’ 

0 

If 

« 

•  a. 

with  the  initial  condition 
(7)  p(0)  =  0  . 


.  th 


The  j  homogeneous  solutio.*  satisfies  the  system 

k2  k  M  k  X  k  .  V  2 


hJ  -  hj  l  K  + 
7 


S 


k  k 


+  hJ 

a 


h-^  |J_x  y".  +  0(y"-^) 

y  ^  r5  V 

k  . 


3”.' 


(8)  y  -  hj  0(y 


k  k 


.,k/  k 


+  hj  ,  13  +  3^5=  _  +  3r,^(v^-h)2  I 

y  i  ^3  5  I 

t  r  s  s 


+  h 


■5  r  ^ 

j  k  y  'I 

a  j  J  ’ 


h-'  =  0 

a 


Its  five  initial  conditions  are  presented  in  the  appropriate 
column  of  Table  1. 


Wi|^pi|giaipw“JWiB5VJ  1,^  '•■■■ 
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TABLE  I. 

THE  INITIAL  CONDITIONS  FOR  THE 
HOMOGENEOUS  SOLUTIONS 


3^^ 

2 

3 

4 

5 

h^(0) 

1 

0 

0 

0 

0 

hj(0) 

X 

0 

1 

0 

0 

0 

0 

0 

1 

0 

0 

hAo) 

y 

0 

0 

0 

1 

0 

hj(0) 

0 

0 

0 

0 

1 

The  particular  and  homogeneous  solutions  are  produced  by 
numerical  integration  and  are  known  at  the  discrete  times 
t  «=  0,  A,  2A,  3A,  . .  .  ,  T. 

Let  us  find  the  system  of  linear  algebraic  equations 
which  is  to  be  solved  in  the  (k+1)®^  stage.  The  boundary 
conditions  may  be  expressed  as 
k+i  k+1 

(9)  y  +  [1-x  (t^)J  tan  9(t^)  «  0  , 

where  is  the  observed  angular  position  of  the  heavenly 

body  H  at  time  t^ .  Using  relations  (5),  we  obtain  the 
five  equations 

I  cJ  [h^(t^)  -  h^(t^)  tan  e(t^)] 
j“i  ^ 

(10) ... 

*-  tan‘^(t^)  -  Py(t^)  +  tan  9(t^)  , 


|j*P.iMPi  11.11  : 


(10) 


i  —  L }  2. )  .  .  .  , 


5. 


12  5 

for  the  five  unknowns  c  ,  c  ,  . . .  c  . 


The  solution  of  (10)  inmediately  gives  us  our  new  set 
of  orbital  parameters  and  the  mass  of  the  unknown  perturbing 


body  P , 


k+1.^.  1 

X  (0)  =  c 


(11) 


k+1...  3 

y  (0)  =  c  , 

y  (0)  =  c  , 

k+l/^-v  5 

a  (0)  =  c 


Since  we  need  x^'^^(t),  y^'^^(t),  and  a^'^^(t),  for  stage 
k+2,  we  use  relations  (5)  for  the  evaluation  of  these  func¬ 
tions  at  t  ~  0,  A,  2A,  3A,  T.  The  cycle  is  ready  to 

begin  once  more,  and  it  is  repeated  until  a  solution  of  the 
nonlinear  problem  is  found,,  or  for  a  fixed  number  of  stages. 

We  begin  a  numerical  experiment  with  the  initial  guess 
that  at  time  t  =  0,  the  body  H  is  at  location  (3,0) 
with  velocity  coordinates  x  =  0,  y  =  1,  and  we  believe 
that  the  mass  of  P  is  about  0.3.  We  integrate  equations 
(1)  with  the  initial  values 


(12) 


x(0)  =  3,  x(0)  -  0,  y(0)  =  0,  y(0)  =  1,  a(0)  =  0.3 
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from  t  =  0  to  t  =  2.5,  using  a  grid  size  of  =  0.01 
and  an  Adams— Moulton  integration  formula.  This  generates 
the  curve  labelled  "Initial  Approximation"  in  Fig.  2.  This 
is  a  very  poor  approximation  to  the  true  orbit.  After  two 
stages  of  the  quasilinearization  scheme,  our  approximation 
has  improved  so  that  the  orbit  is  represented  by  the  curve 
labelled  "Approximation  2"  in  Fig.  2.  In  five  iterations, 
we  converge  to  the  true  curve,  h(x,y),  and  we  have  found 
the  correct  value  of  0. 2  for  the  mass  of  the  perturbing 
body.  The  rate  of  convergence  is  indicated  in  Table  2. 

TABLE  2. 

SUCCESSIVE  APPROXIMATIONS  OF  THE  COMPLETE  SET 
OF  INITIAL  CONDITIONS  AND  THE  MASS  OF  P 


Approx. 

x(0) 

i(0) 

y(0) 

y(0) 

a 

0 

3.0 

0.0 

0.0 

1.0 

0.3 

1 

3.18421 

. 221272 

0.0 

1.06544 

-.120164 

2 

2.37728 

-.061370 

0.0 

0.690767 

-. 259144 

3 

2. 11189 

-.018545 

0.0 

0. 555666 

-.070333 

4 

2.01974 

-.003194 

0.0 

0. 509813 

.  1419  2,2 

5 

2.  00023 

.000013 

0.0 

0. 500120 

. 198208 

True 

2.0 

0.0 

0.0 

0.5 

0.  2 

Suppose  that  we  also  wish  to  know  the  position 


sive  approximations  of  the  orbit. 
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TABLE  3. 

PREDICTED  LOCATION  OF  L.  AT  TIME  2.5 


Approx. 

x(2.5) 

y(2.5) 

0 

3.38098 

2.47759 

1 

1.93764 

2. 72562 

2 

1.48932 

1.53066 

3 

1,  3  7202 

1.  21823 

4 

1.34124 

1.125] 

5 

1.33503 

1. 10598 

True 

1.33494 

1. 10571 

of  H  at  some  "future"  time  t  =  2.5.  Our  sequence  of 
approximations  of  the  predicted  location  is  given  in  Table  3. 
The  entire  calculations  require  only  1—1/2  minutes  on  the 
IBM  7044  computer j  using  a  FORTRAN  IV  source  language.  The 
FORTRAN  programs  which  generate  the  data  and  which  deter¬ 
mine  the  orbit  and  mass  are  listed  in  Appendix  A. 

The  time  involved  is  mainly  due  tc  the  evaluation  of 
the  derivatives  of  the  functions.  The  Adams-Moulton  fourth 
order  method  requires  the  derivative  to  be  evaluated  twice 
for  each  integration  step  forward  [25j. 

In  another  trial,  beginning  with  the  approximation 
that  the  orbit  is  a  point  at  the  earth’s  center  [19],  we 
find  another  solution  which  satisfies  all  of  the  conditions. 
However,  the  mass  turns  out  to  be  greater  than  one,  an  unal¬ 
lowed  solutioii.  Repeating  the  experiment  with  more  closely 
spaced  observations,  we  converge  to  the  true  solution.  The 
determination  of  the  optimal  set  of  observations  is  itself 
an  interesting  question. 


n 


. '  -JBIT 
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CHAPTER  TWO 

IMERSE  PROBLEMS  IN  RADIATIVE  TRANSFER:  LAYERED  MEDIA 

1 .  INTRODUCTION 

Some  inverse  problems  in  radiative  transfer  are  con¬ 
cerned  with  the  estimation  of  the  optical  properties  of  an 
atmosphere  based  on  measurements  of  diffusely  reflected 
radiation.  The  location  and  the  intensity  of  the  source 
of  radiation  are  known.  We  consider  a  plane-parallel 
medium  which  is  composed  of  two  layers.  Our  aim  is  to 
determine  the  optical  thickness  and  the  albedo  of  each  layer, 
from  knowledge  of  the  input  radiation  and  the  diffusely 
reflected  light. 

First  we  discuss  the  concept  of  invariant  imbeddingr 
and  we  apply  this  technique  to  the  derivation  of  the  equation 
for  the  diffuse  reflection  function  of  an  inhomogeneous  slab 
with  isotropic  scattering.  The  inverse  problem  is  stated 
in  terms  of  the  reflection  function,  and  we  formulate  the 
problem  as  a  nonlinear  boundary  value  problem.  We  then 
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show  hov7  the  formalism  of  quasilinearization  can  be  used  to 
solve  this  problem.  We.  conduct  several  numerical  experiments 
for  the  determination  of  optical  thicknes.ses  and  albedos  of 
the  layers.  Compu tational  results  are  presented,  and  the 
FORTRAN  computer  programs  which  produced  the  results  are 
given  in  Appendix  B. 

2.  INVARIANT  PfflEDDING 

The  traditional  approach  to  wave  and  particle  transport 
processes  leads  to  linear  functional  equations  with  boundary 
conditions.  While  linearity  enables  eigenfunction  expansions 
to  be  made,  one  finds  great  difficulty  in  solving  the  equation 
of  transfer.  The  integration  of  ordinary  differential 
equations  with  given  initial  conditioas  is  done  extremely 
efficiently  by  digital  computers.  This  suggests  that 
problems  be  fornu.ilated  in  just  this  way,  with  the  physical 
situation  as  the  guide.  Invariant  imbedding  provides  a 
flexible  manner  in  which  to  relate  properties  of  one  process 
to  those  of  neighboring  processes.  This  also  leads  to  the 
generalized  semigroup  concept  [1]. 

In  a  particle  process,  one  is  led  by  invariant  imbedding 
to  different ial— integral  equations  for  reflection  and  trans¬ 
mission  functions.  By  the  use  of  qua  ' -ature  formulas  [2], 
one  reduces  the  equations  from  integral— differential  form 
to  approximate  systems  of  ordinary  differential  equations. 

The  wave  equation,  on  the  other  hand,  may  be  reduced  to  a 
system  of  ordinary  differential  equations  in  at  least  tv/o  ways 
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(1)  assume  the  time  factor  of  the  form  e^  *  ^  and  the  problem 
simplifies  to  the  steady  state  situation,  or  (2)  use  Laplace 
transform  methods.  Both  alternatives  are  discussed  in  later 
sec  tions . 

Invariant  imbedding  is  a  useful  formalism,  theoretically 
and  computationally  speaking.  Principles  of  invariance  were 
first  introduced  by  Ambarzumian  in  1943  [3]  and  developed 
by  Chandrasekhar  [4] .  The  invariance  concept  was  further 
extended  and  generalized  by  Bellman  and  Kalaba  [5—10].  The 
form  in  which  invariant  imbedding  is  applied  in  these  chapters 
is  indicated  by  this  example.  Suppose  that  a  neutron  multi¬ 
plication  process  takes  place  in  a  rod  of  length  x  [11].  The 
investigator  wishes  to  know  the  reflected  flux  r  for  an 
input  of  one  particle  per  second.  Rather  than  study  the 
processes  within  the  rod  extending  from  0  to  x,  which  would 
be  quite  dif f '  .,(^i.t ,  the  experimenter  would  like  to  vary 
the  length  of  the  rod  and  see  how  the  reflected  flux  changes. 
The  rod  length  is  made  a  variable  of  the  problem,  so  that 
r  =  r(x) .  The  original  situation  is  imbedded  in  a  class  of 
similar  cases,  for  all  lengths  of  rod,  and  one  obtains 
directly  the  reflected  flux  for  a  rod  any  length  including 
the  length  under  investigation.  This  flux  is  rather  easily 
computed  and  it  is  physically  meaningful  [15,16]. 

3.  THE  DIFFUSE  REFLECTION  FUNCTION  FOR  AN  INHOMOGENEOUS  SLAB 
Consider  an  inhomogeneous,  plane-parallel,  non— emitting 
and  isotropically  scattering  atmosphere  of  finite  optical 
thickness  t^.  The  optical  properties  depend  only  on  t,  the 
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optical  distance  from  the  lov/er  boundary  (0  t  .  The 

physical  situation  is  sketched  in  Fig.  1.  Parallel  rays  of 
light  of  net  f  1  vx  rr  per  unit  area  normal  to  their  direction 
of  propagation  are  incident  on  the  upper  surface,  t  -- 
The  direction  is  characterized  by  the  paraiaeter  I-Iq 
(0  <  dg  <  1),  which  is  the  cosine  of  the  angle  measured 
from  the  downward  normal  to  the  surface.  The  bottom  surface 
is  a  completely  absorbing  boundary,  so  that  no  light  is 
reflected  from  it.  This  assumption  is  not  essential  to  our 
discussion. 


Fig.  1.  Incident  and  reflected  rays  for  an  inhomo¬ 
geneous  slab  of  optical  thickness  . 


The  direction  of  the  outgoing  radiation  is  char¬ 
acterized  bv  i-i;  the  cosine  of  the  polar  angle  measured 
from  the  outward  normal  to  the  top  surface.  This  para¬ 
meter  is  the  direction  cosine  of  the  vector  representing 
the  ray  of  light.  The  azimuth  angle  has  no  significance 
due  to  the  symmetry  of  the  situation. 

By  ’’intensity”  we  shall  mean  the  amount  of  energy 
which  is  transmitted  through  an  element  of  area  da  normal 
to  the  direction  of  flow,  in  a  truncated  elementary  cone 
dr  in  time  dt.  See  Fig.  2,  as  v;ell  as  Kourganoff  [12]. 

We  restrict  ourselves  to  the  steady— state  situation  at  a 
fixed  frequency. 

We  define  the  diffuse  reflection  function  as  follows 

(1)  r(M,MQ,T-,)  is  the  intensity  of  the  diffusely  re¬ 

flected  light  in  the  direction  whose  cosine  is 
u  with  respect  to  the  outward  normal,  due  to 
incident  uniform  parallel  rays  of  radiation  of 
constant  net  flux  tt  in  the  direction  whose 
cosine  is  Uq  with  respect  to  the  inward  nor¬ 
mal,  the  slab  having  optical  thickness  . 
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We  d^^ine  a  related  1  met ion  P, 

\i  r(u,  u«,T-,) 

(2)  P(n,Uo,T^)  =  - -  _ 

which  is  the  energy  of  the  diffusely  reflected  light  in 
the  direction  la  passing  through  a  unit  of  horizontal  area 
per  unit  solid  angle  per  unit  time,  due  to  incident 
radiation  of  unit  enerpv  per  unit  horizontal  area  per  unit 
solid  angle  per  unit  time,  in  the  direction  Uq .  We  may 
also  interpret  P  as  the  probability  that  a  particle  v;ill 
emerge  from  a  unit  of  horizontal  area  at  t  =  t^,  the  top 
of  a  slab  of  thickness  t^,  going  in  direction  p,  per  unit 
solid  angle  per  unit  time,  due  to  an  input  of  one  particle 
per  unit  horizontal  area  per  unit  solid  angle  per  unit 
time  in  the  direction  Pq . 

Consider  now  a  slab  of  thickness  +  A  fomied  by 
adding  a  thin  slab  of  thickness  A  to  the  top  of  the  slab  of 
thickness  as  illustrated  in  Fig.  3.  By  imbedding  the 

original  problem  in  a  class  of  problems  of  similar  nature, 
we  will  derive  an  integro— differential  equation  for  the 
diffusi  reflection  function. 

The.  diffuse  reflection  function  for  a  slab  of 
thickness  +  A  with  an  itiput  of  net  flux  tt  is 
r(p,pQ,  «  Trp(p,pQ,Tj^  -f  A)mq/p.  Applying  the 

method  of  invariant  imbedding  in  its  particle  counting 
form  to  the  probability  of  emergence  of  a  particle  from  a 
slab,  we  obtain  the  equation 
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(3)  P(w,Mq,t^  +  A)  =  p(m,Uq,t^)  - 


+ 


UTi)  1  A  ^("l) 

uq  -vr  +  ,r^p(u',uo,-^)du'  ^  -5^ 


1  \  ^  ( '1'  1 ) 

0  ^0  ^  i 


+ 


1  I  *  ^(t-,)  1 

2r  r  p(p  u  rOdu'  -i  2rr  f  p(a,M",'^-l)da". 

0  ^  li  0  ^ 


+  o  (A)  , 


The  first  term  on  the  right  hand  side  is  the  probability  that 
a  particle  enlarges  without  any  interaction  in  the  thin  slab. 
The  unit  of  distance  is  such  that  x  is  the  probability  of 
an  interaction  in  a  path  of  length  x.  Hence  the  second  term 
represents  the  losses  due  to  interactions  of  the  incoming 
and  outgoing  particles  whose  path  lengths  in  A  are  A/uq 
and  A/u  respectively.  The  third  term  is  the  probabili  y 
of  an  interaction  and  re-eraission  isotropically  into  the 
direction  given  by  u.  The  function  is  the  probability 

of  re-emission,  and  is  called  the  albedo  for  single  scat¬ 
tering.  The  next  term  is  the  probability  that  the  parti¬ 
cle  is  diffusely  reflected  from  the  slab  between  (0,t^) 
into  the  direction  u'  and  interacts  in  A  and  is  re¬ 
emitted  into  the  direction  of  emergence  u.  The  next  term 
is  the  probability  that  an  incoming  particle  interacts  in  A, 
enters  the  slab  {0,r^)  and  is  diffusely  scattered  into  the 


-40- 


emergent  direction  u.  The  sixth  terra  is  the  probability 

of  diffuse  reflection  in  (0,t^),  then  interaction  and 

re-eraiss'  i  in  A,  and  diffuse  reflection  from  (0,t^)  with 

outgoing  direction  u.  All  o^her  probabilities  are  pro— 

2 

portional  to  or  higher  powers  of  A  and  are  accounted  for 
in  the  term  o(A). 

Let  the  diffusely  reflected  intensity  be  gi^^en  by  a  new 
function  R,  by  means  of  the  relation 


(4) 


where  R  is  related  to  P  bv  the  formula 


('■>) 


P ( U . Uq 


(  M  ,*  >  '  Q  J 

4”'dr 


^0 


Then  R  satisfies  the  equation 


(6)  R(u.>l1q,t^  +A)  —  R(u5  Mq ^  2^)  A +  — )  R(u  ,  Uq ^ 


+  J 1  +  ^  r(u',^o,t  )^'  +  1  r  R(u,u",Tpi" 

i  ^0  u'  ^0  ^  ^ 


+  r  ^  T  +o(A). 

^0  ^  p'  0  ^  j 

We  expand  the  lefthand  side  of  the  equation  in  powers  of  A, 


(7)  R(u_,u^,t^  +  A)  -■  R(u,aQ,T^)  + 


?^Rfa,UQ,T^) 


OT 


A  +  o(^) 
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By  letting  A-0,  we  arrive  at  the  integio— differential 
equation 


The  initial  condition  is 


(9)  R(u,Uq,0)  =  0, 

because  no  light  is  aiffusely  reflected  when  the  medium 
has  zero  thickness.  It  is  readily  seen  that  the  function 
R  is  syimnetric  [4,13,14,17],  i.e., 

(10)  R(h,UQ,T^)  =R(Uq,U,T^), 

Equation  (8)  for  R  is  the  same  as  Chandrasekhar's  equation 
for  his  scattering  function  S,  when  the  medium  is  homogeneous 
and  isotropic. 

4.  GAUSSIAN  QUADRATURE 

The  above  integrals  may  be  evaluated  by  the  use  of 
Gaussian  quadrature  [4,13,14].  Since  the  limits  of  our 
integrals  are  zero  to  one,  we  use  the  approximate  relation 
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1  N 

(1)  r  f(x)dx  =  X  f(a.  )v7,  , 

’  0  k=i 

which  is  exact  if  f(x)  is  a  polynomial,  of  degree  2N— 1  or 
less.  The  numbers  are  roots  of  the  shifted  Legendre 

function  =  PjqCl— 2x)  on  the  interval  (0,1),  and  the 

numbers  Wj^are  the  corresponding  weights.  For  a  more  de¬ 
tailed  discussion  and  for  tables  of  roots  and  weights,  see 
[13]. 

Replacing  integrals  by  Gaussian  sums,  we  have  the 
following  equation  which  is  approximately  true, 


(2) 


>r- 


=  X(Tp  [1  +  ^  R(u^,yg,Tp  ^][1  +  1  K(y,U|^,Tp 


For  N  ~  7,  this  is  a  fairly  good  approximation  [14,15]. 

We  consider  only  those  incident  and  outgoing  directions 
for  which  the  cosines  take  on  the  values  of  the  roots 

Uk* 

For  N  =  7,  the  roots  u-  and  the  corresponding  angles, 
arc  cosine  are  listed  in  Table  1,  in  order  of  in¬ 
creasing  p. 
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TABLE  1 

ROOTS  OF  SHIFTED  LEGENDRE  POLYNOMIALS  OF 
DEGREE  N  =  7,  AND  CORRESPONDING  ^J^GLES 


k 

Roots 

Arc  cosine 

(in  degrees) 

1 

0.025446044 

88.541891 

2 

0.12923441 

82.574646 

3 

0.29707742 

72.717849 

4 

0. 50000000 

60.000000 

5 

0.70292258 

45.338044 

6 

0.37076559  i 

29.452271 

7 

0.97455396 

12.953079 

We  define  the  functions  of  one  argiament. 


for  i  =  1^2,,..^N^  j  =  1^2,...,N.  Tlien  (2)  becomes  a 
system  of  ordinary  differential  equations 


+  (i  +  i 

dr-,  'u.  M 


+  — )  R .  .  = 
u/  IJ 


with  optical  thickness  as  the  independent  variable,.  The 
initial  conditions  are,  of  course. 


(5) 


R. . (0) 

j_jV  / 


The  system  of  first  order  differential  equations  reduce 
to  a  systi?m  cf  N(N+I)/2  equations  by  the  use  of  the  symmetry 
property  of  R.  This  is  a  large  saving  of  computational 
effort. 


5.  AN  INVERSE  PROBLEM 

Consider  the  inhomogeneous  medium  composed  of  two 
layers  as  illustrated  in  Fig.  4. 


Fig.  4.  A  layered  medium 

The  total  thickness  of  the  medium  is  1.0,  the  thickness  of 
each  slab  is  0.5,  and  the  albedos  are  0.4  in  the  lower 
layer,  0.6  in  the  upper  layer.  In  order  to  have  a  con¬ 
tinuous  function  for  the  albedo,  we  assume  that  X  is 
given  by  the  function 


(1) 


>.(t)  =0.5  +0.1  tanh  10(t-0.5). 
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This  function  is  plotted  in  Fig.  5. 


Fig.  5.  The  albedo  function  X(t)  =  0.5  4-  0.1  tanh  10(t-~0.5) 
for  a  slab  of  thickness  1.0. 

Parallel  rays  of  net  flux  rr  are  incident  on  the  upper 

surface  of  the  medium  in  a  direction  characterized  by  the 

2 

parameter  Pj .  We  obtain  N  measurements  of  the  intensity 
of  the  diffusely  reflected  light,  b.j  =  r^.j(T2^),  for  incident 
directions  Uj,  j  =  1,2,...,N,  and  reflection  directions 
i  =  1,2,...,N.  We  wish  to  determine  the  nature  of  the 
medium  from  the  knowledge  of  the  reflected  radiation. 

Let  the  total  optical  thickness  of  the  slab  be  T,  and 
let  the  thickness  of  the  lower  layer  be  c.  Let  the  albedos 
be  and  ^2^  the  lower  and  upper  slabs  respectively, 

where  the  albedo  as  a  function  of  optical  elevation  is 


(2) 


X(t)  =  a  +  b  tanh  10(t~c) 


and 

=  a— b. 

(3) 

X  2  =  a+b , 

where  a  and  b  are  unknown  parameters.  For  the  "true" 
situation, 

(4)  T  =  I.O,  a  =  0.5,  b  =  0.1,  c  =  0.5. 

The  inverse  problem  which  we  wash  to  solve  is  to  determine 
the  quantities  T,  a,  b,  and  c  in  such  a  way  as  to  have 
best  agreement,  in  the  least  square  sense,  between  the 
estimated  solution  using  the  ordinary  differential  equations 
for  r^j  and  the  observed  reflection  pattern.  Mathematically 
speaking,  we  wish  to  minimize  the  expression 

N  N  2 

(5)  S  £  {r.,(T)-b  ) 

1=1  j=i  i-J 

over  all  choices  of  the  unknown  parameters. 

In  Table  2,  we  present  the  measurements  [t>.  .}  for 

^  J 

N  =  7«  In  Fig.  6  we  plot  some  of  the  measurements  as  a 
function  of  the  cosine  of  the  reflection  angle,  p  ~ 
for  input  directions  Mq  ~  =  .025,  .5,  and  .975.  The 

discrete  observations  are  shown  as  dots,  and  for  clarity  we 
draw  smooth  cum/es  through  these  points.  For  comparison, 
we  show  what  the  corresponding  measurements  would  be  if 
the  medium  were  homogeneous  with  albedo  \  =  0.5. 


THE  MEASUREMENTS  [b. . 
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6.  FCRMULATION  AS  A  NONLINEAR  BOUNDARY  VALUE  PROBLEM 

We  formulate  this  inverse  problem  as  a  nonlinear 

2 

boundary  value  problem.  To  the  system  of  N  nonlinear 
differential  equations 


dR.  . 


Vil\  .  •  1  1 


[1  +  i  X  R  ^J(l  +  1  Z  R  , 

i  kj  2  Ik  Uy. 


where 


(2) 


X(T|)  =  a  +  b  tann  10(T|^  -  c) 


we  add  the  differential  equations 


da  _  p  db  _  p  dc  _  p  dT  _  p 


because  a,  b,  and  c  and  T  are  unknown  constants.  The  boundary 
conditions  are 


(4) 


Rij(O)  =  0, 


md 


(5)  11=0 


SS  _  „  ss  _  „  9S  _  n 
’  ^  5^-0-  3f 


where 


N  N 


(6)  S  =  Z  Z  fR,-,(T)  -  4tJ.b..} 
i=l  j=i  ’■J  ^ 


- _ -£ _ 
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7.  NUMERICAL  EXPERIMENTS  I.  DETERMINATION  OF  c,  THE 
THICKNESS  OF  THE  LMLR  LAYER 

Let  us  try  to  aetermine  the  quantity  c,  which  is  the 
thickness  of  the  lower  layer  of  the  stratified  medium.  We 
assume  that  all  of  the  other  parameters  a^bj,  and  T  are 
known.  The  parameter  c  is  considered  to  be  a  function  of 
optical  height  Ti  described  by  the  equation  dc/dr^^  =  0. 

By  following  the  method  of  quasilinearization  as  described 
previously,  we  obtain  a  system  of  linear  differential 
equations  for  the  (k+1)  approximation  ^o  R. .  and  c: 


(1) 


dk 

~aFF 


k+l 


iJ-  =  f(R^,,  cS  + 


i.O 


- 


rL) 

a<. 


,  /^k+1  ^k.  9f 

f  (C  -  C  )  - T~ 

^c 


dr-, 


where 


(2) 


f(R^.,c^)  = 


-  ( 


u. 


+  X(c^(l  +  i  s 

l=l 


k 

K-  — ) 

1 2  d/ 


1  N 

•(1  +  i  2 

^  l=l 


— ) 


y 


(3)  X(c^)  =  a  +  b  tanh  10 (t^  ~  c^) . 


After  simplifying,  we  have 
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(4) 


f  (ii7  +  ^ 


1  2  „k  ”1 


~)  X 


I 


1  2  ,k 


r  .1 , 1 


,k+l 


(1  +  ;  S  R-  ^)>  +  .'-  +  ^)(r7t^  -  R^)  + 


1=1 


Ij  n 


I-  1/  k> 


L 


i-J 


IJ' 


,k  S  /T^k+l  „k  X 


(1  +  ±  r.  R-  X  2  (r;;--  r-)  ^  + 


2  ^ 


I  ^=1 


'ly  ii 


I 


N 


1  V  .k  ..  ,„k+l 


N 


k  . 


(1  +  ^  2  R7,  X  2  (r77^  -  R-p  ^ 


7  mV  ''  -'it 


>+ 


k+l 


J^^^TJ.  /  1  J.  i  T  U^  '*^t\  /  1  ,  1  pk 

^C  -  o  (1  +  ^  ^2^  Ri^  ^)  (1  +  ^  R^j  ■^)  X 


L 


(—10  b  sech^  10  —  c^)) 


J’ 


dc 

H? 


k+l 


=  0. 


Since  N  =  7,  there  are  basically  7“^  +  1  =  50  differential 
equations,  wtiich  reduce  to  7*8/2  +  1  =  29  differential 
equations  by  the  use  of  the  symmetry  property 


(5)  R^t^T]^)  =  Rjt^(Ti)  . 


While  the  computations  are  reduced,  the  full  set  of  values 
k+l 

R^j  representing  a  7  x  7  matrix  is  always  available. 

k+l 

Now  let  the  50— dimensiorial  vector  x  (i^l)  have  the 


components 
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(6)  x^+^(T^)  =  (Ti), 

for  I  =  ij2j...j49  as  i  =  1,2^... ,7  and  j  =  1,2, ... ,1 ,  and 

(7) 

k+1 

Since  x  (t^)  ^  solution  of  a  system  of  linear 

differential  equations,  we  may  represent  it  as  the  sum  of 
a  particular  vector  solution,  p(t^),  and  a  vector  solution 
of  the  homogeneous  sytem,  h(T^), 

(8)  =  p(tP  +  m  h  (t^. 

The  system  of  differential  equations  for  p(t^)  is 

obtained  by  substituting  the  appropriate  component  of  p 
k+1  k+1 

where  ever  R  or  c  occurs  in  (4).  We  choose  the 
initial  conditions  p(0)  =  0.  The  system  of  equations  for 
the  homogeneous  solution  is  similarly  obuained,  but  of 
course  all  terms  not  involving  the  (k+1)  approximation 
are  dropped.  The  initial  vector  h(0)  has  all  of  its  com¬ 
ponents  zero  except  for  the  last,  which  is  unity.  The 

k+1 

boundary  conditions  (0)  =  0  are  identically  satisfied. 
The  solutions  pCtj^)  and  h(T^)  are  produced  on  the  interval 
0  ^  ^  1.0  by  numerical  integration. 

The  multiplier  m  is  chosen  to  minimize  the  quadratic 


form, 
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^-9  2 

(9)  S  =  2  {p^(l)  +  in  h^(l)  -  b^}  , 

•L— 1 

where  the  observations  are  b^  =  .  It  is  required 

that 


(10) 


9 


and  so  the  value  of  m  is 


(11) 


49 

2  h^(l)[b^-p^(l)] 

^  "  1 

— zr5 - 2 - 

2  [h,(l)] 

1=1  ^ 


The  thickness  of  the  lower  layer  in  the  new  approxima¬ 
tion  is 


(12) 


=  m. 


The  initial  approximation  required  for  this  successive 
approximation  scheme  is  produced  by  numerically  integrating 
the  nonlinear  system  of  equations  for  R  using  a  rough 
estimate  of  c.  The  results  of  three  experiments  with 
initial  guesses  c  =  0.2,  0.8,  and  0.0  respectively  are 
given  in  Table  3.  The  values  of  c  obtained  in  the  first, 
second,  third  and  fourth  approximations  are  tabulated. 

TABLE  3 

SUCCESSIVE  APPROXIMATIONS  OF  c,  THE  LEVEL  OF  THE  INTERFACE 


Approximation 

Run  1 

Run  2 

Run  3 

0 

0.2 

“OTS 

DTU 

1 

0.62 

0.57 

2 

0.5187 

0 . 5024 

No 

3 

0.500089 

0.499970 

convergence 

4 

0.499990 

0.499991 

True  Value 


0.5 


0.5 


0.5 


54 


The  initial  guess  of  c  in  Run  1  is  607o  too  low,  and 

in  Run  2,  607o  too  high.  Yet  the  correct  value  of  c  is 

accurately  found  in  3  to  4  iterations.  The  time  required 

for  each  run  is  about  2  minutes  on  the  IBM  7044  digital 

computer,  using  an  Adajiis-Moulton  fourth  order  integration 

scheme  with  a  grid  size  of  =  0.01.  Each  iteration 

requires  the  integration  of  2  x  29  =  58  differential 

equations  with  initial  values,  and  the  values  of 

and  h^(T^)  thus  produced  are  stored  in  the  rapid  access 

memory  of  the  computer  at  each  of  a  hundred  and  one  grid 

points,  =  0,  .01,  .02,...,  1.0.  The  current  approxima— 
k.  • 

tion  of  R^j  is  also  scored  at  a  hundred  and  one  points. 

Run  3  is  an  unsuccessful  experiment  because  the 
initial  guess  for  c,  i.e.,  a  single  layer  approximation, 
is  very  poor.  The  solution  diverges, 

8.  NUMERICAL  EXPERIMENTS  II.  DETERMINATION  OF  T.  THE 

aVERALL  optical  THI'CRt;^ - - 

Now  let  US  try  to  estimate  the  total  optical  thickness 
T  of  the  stratified  medium,  assuming  that  we  know  all  of 
the  other  parameters  of  the  system.  Again  we  are  provided 
with  49  measurements  of  {b},  the  intensity  of  the  diffusely 
reflected  radiation  in  various  directions. 

The  quantity  T  is  the  end  point  of  the  range  of 
integration,  i.e.,  0  ^  <  T.  In  order  to  have  a  known 

end  point,  we  define  a  new  independent  variable  a, 

1  ^ 


(1) 


aT  =  T 
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so  that  the  integration  interval  is  fixed,  0  ^  a  ^  1.  Then 
T  satisfies  the  equation,  dT/da  =  0.  Our  system  of  non¬ 
linear  equations  is 


(2) 


■  ’"da 


+  X[1  + 


N 

2 


w. 


N 


w. 


^  k=l  ^  k=l 


p. 


7^] 


da 


where  X  =  a  +  b  tanh  10 (aT  -  c) . 

Tlie  solution  is  subject  to  the  conditions 

(3)  R..(0)=0, 

N  N  2 

(4)  min  2  2  [R.  .(T)  -4M^b.J 

T  i=l  j=l  ^ 

Linear  differencial  equations  are  obtained  in  the 
same  manner  as  before,  and  we  solve  a  sequence  of  linear 
boundary  value  problems. 

Three  trials  ure  made  to  determine  the  thickness  T, 
with  initial  .esses  T  =  0.9,  1.5,  and  0.5,  while  the  correct 
value  is  1.0.  Four  iterations  yield  a  value  of  T  which  is 
correct  to  one  part  in  a  hundred  thousand,  in  each  of  the 
three  experiments.  The  total  computing  time  is  four  minutes. 

The  experiment  is  successful  even  when  the  initial  guess  is 
only  one-half  of  the  true  value. 

f 

1 

'# 
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9.  NUMERICAL  EXPERIMENTS  III.  DETERMINATION  OF  THE  TWO 
ALBEbOS  AND  THE  THICKNESS  OF  THE  LOWER  LAYER 

Given  49  measurements  of  the.  diffusely  reflected 
light,  we  wish  to  determine  the  two  albedos 

(1)  =  a— b,  ^2  ^  a  +  b, 

and  the  thicknesses  of  the  two  layers.  We  assume  that  we 
know  the  overall  thickness  T  =  1.0,  and  so  if  the  thickness 
of  the  lower  layer  is  c,  the  thickne';';  of  c*  j  upper  layer 
is  given  by  T  -  r.  The  unknown  pa.._  ..s  are  a,  b,  and 

c.  Since  there  are  three  unknowns,  we  have  three  homo¬ 
geneous  solutions  and  of  course  a  particular  soJution  ro 
compute  in  each  iteration  of  ti’  experiment.  Each 
solution  has  28  +  3  =  31  components,  so  that  there  are 
4  X  31  =  124  linear  differential  equations  being  integrated 
during  each  stage  of  the  quasilinearization  sc  erne.  The 
three  multipliers  form  the  solution  of  a  third  order  linear 
algebraic  system.  They  are  found  by  a  matrix  inversion 
using  a  Gaussian  elimination  method.  Table  4  summarizes 
the  results  of  an  experiment  which  is  carried  out  in  about 
2  minutes  on  the  IBM  7044.  The  FORTRAN  IV  computer  pro¬ 
grams  for  all  three  series  of  experiments  are  given  in 
Appendix  B. 


1 
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TABLE  4 

SUCCESSIVE  APPROXIMATIONS  OF  AND  c 


Approximation 

=  a— b 

^2  = 

c 

0 

0.51 

0.69 

0.4 

1 

0.4200 

0.6052 

0.5038 

2 

0,399929 

0.599995 

0,499602 

3 

0.399938 

0.599994 

0.499878 

True  Value 

0.4 

0.6 

0.5 

10.  DISCUSSION 

The  approach  which  is  discussed  above  is  readily 
extended  to  other  inverse  problems  with  different  physical 
situations.  The  numerical  experiments  in  this  chapter 
make  use  of  many  accurate  observations  of  the  reflected 
light  while  in  the  next  chapter,  the  effect  of  errors  in 
the  measurements  is  examined.  We  note  that  initial 
approximations  must  be  good  enough  to  insure  convergence. 

A  rational  initial  estimate  may  be  made  from  knowledge  of 
the  diffuse  reflection  fields  for  various  homogeneous 
slabs,  as  calculated  for  example  by  Bellman,  Kalaba  and 
Prestrud  [14].  Other  inverse  problems  might  deal  with  the 
transmission  function,  the  source  function,  the  X  and  Y 
functions,  and  the  emergence  probabilities  [18—22]. 
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CHAPTER  THREE 

INVERSE  PROBLEMS  IM  RADIATIVE  TRANSFER; 
NOISY  OBSERVATIONS 


1.  _ INTRODUCTION 

The  techniques  of  invariant  imbedding  and  quasi linear¬ 
ization  are  applied  to  some  inverse  problems  of  radiative 
transfer  through  an  inhomogeneous  slab  in  which  the  albedo 
for  single  scattering  has  a  parabolic  dependence  on  optical 
height.  The  results  of  many  numerical  experiments  on  the 
effect  of  the  angle  of  incidence  of  radiation,  errors  in 
observations,  and  minimax  versus  least  squares  criterion  are 
reported,  '^ther  experiments  are  carried  out  to  design  an 
optical  medium  according  to  specified  requirements.  The 
knowledge  gained  through  this  type  of  numerical  experimen¬ 
tation  should  prove  useful  in  the  planning  of  laboratory  or 
satellite  experiments  as  well  as  for  the  reduction  of  data 
and  the  construction  of  model  atmospheres. 

2.  AN  INVERSE  PROBLEM 

Consider  an  inhomogeneous,  plane-paral  el,  non-emitting 
and  isotropically  scattering  atmosphere  of  finite  optical 
thickness  .  Its  optical  properties  depend  only  on  the 
optical  distance  t  from  the  bottom  surface.  The  bottom 
surface  is  a  completely  absorbing  boundary,  so  that  no  light 
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is  reflected  from  it.  See  Fig.  1  for  a  sketch  of  the  phy 
sical  situation.  Parallel  rays  of  light  of  net  flux  n 
per  unit  area  normal  to  their  direction  of  propagation  are 
incident  on  the  upper  surface.  The  direction  is  specified 
by  Pq  (0  <  Oq  <  1) .  the  cosine  of  the  angle  measured  from 
the  normal  to  the  surface  [1,2]. 


TT 


Fig.  1.  The  physical  situation 

Let  r(u,  Uq ,  T^)  denote  the  intensity  of  the  dif¬ 
fusely  reflected  light  in  the  direction  u.  and  set 

Pqj  «  Apr.  Then  the  function  R  satisfies  the 
integro-differential  equation 


with  initial  condition 
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(2)  R(a.  Uq,  =  0  . 

The  function  is  the  albedo  for  single  scattering, 

We  wish  to  consider  the  inverse  problem  of  estimating 
the  optical  properties  of  the  medium  as  represented  by 
A.(t)  as  well  as  the  optical  thickness  of  the  slab,  based 
on  measurements  of  the  diffusely  reflected  light. 

3^  FORMULATION  AS  A  NONLINEAR  BOUNL  iRY  VALUE  PROBLEM 

Let  us  consider  the  case  in  which  the  albedo  may  be 
assumed  to  have  a  parabolic  form, 

(1)  X(t)  *  ^  +  ar  +  bx^'  , 

wl are  a  and  b  are  constants  for  a  particular  slab.  For 
pie,  let  us  take  a  *«  2  and  b  -  — 2,  and  we  choose  the 
optical  thickness  c  ■  1.0.  The  albedo  as  a  function  of 
optica  height  is  shown  in  Fig.  2. 


Fig.  2.  A  parabolic  ''Ibedo  function,  X.(t)  “  +  2t  -  2t^, 

for  a  slab  of  thickness  l.O 


PPIMI 
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We  replace  the  integro-dif ferential  equation  by  the 
discrete  approximate  system  obtained  by  the  use  of  Gaussian 
quadrature, 


(2) 


dR, 


(i-  + 

^i 


1 

U: 


)  +  X(t.^)  {l 


+ 


1 

1. 


N 


k=l 


^ik 


(t 


N 


k=l 


In  these  equations,  represents  R(u^.  ,  t^). 

We  produce  "observations"  of  the  diffusely  reflected 

light  by  choosing  N  =  7,  and  integrating  (2)  from  t-.  =  0 

R.  .  ^ 

to  =  1.0,  and  then  setting  b^^  =  .  Then 

is  the  set  of  measurements  for  =1. 

Starting  with  the  observations  {b..l  =  {r..(c)].  we 
wish  to  detennine  the  quantities  a,  b,  and  the  optical 
thickness  c  which  minimize  the  expression 


(3) 


s 

i-.-j 


{r . . (c)  -  b.  .  ] 
i-J 


where  ~  ^^i^ij^^l^  solution  of  the  nonlinear 

system  (2).  This  inverse  problem  may  be  viewed  as  a  non¬ 
linear  boundary-value  problem. 


Ai-  SOLUTION  VIA  QUASH INEARIZATION 

Since  the  terminal  value  of  the  independent  variable 
is  unknown,  we  make  the  following  transfomation  to  a 
new  independent  variable  a. 
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(1)  O  =  T^/c  , 

which  has  initial  value  0  and  terminal  value  1.0.  Then 
the  parameters  a.  b,  and  the  thickness  c  satisfy  the 
equations 


(2) 


d^ 

do 


=  0 


db 


=  0 


dc 

ffa 


=  0 


Eqs.  (2)  are  added  to  the  system 


where 

(4)  “  2  bc^a^  . 

The  application  of  the  technique  of  quasilinearization 
[  2  ]  yields  the  linear  system  for  the  (n+1)  approximation. 


dR^tl 


= 


n 


o)f.(R")fj(R‘')} 


+  c 


n 


+  i^XR^'t’- 

IJ 


j.  1  w.,d  ,n 
+  2  ,  b  , 


N 

X  (R 

k-1 


n+1 

kj 


+  f. 
J 


N 


l=l 


1} 


1 
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+  -  a'')  c"  (c’^o)  f.  (r")  (r") 

+  -  b"^)  (c^o)^  (r'^)  (r") 

+  -  c")  {-(J  +  ^)  ^  ,^)f.(R^)f  (R^) 

^  j  “* 

+  [a^c'^a  +  2b'"(c'"7)^j.f.(R'^)f^(R'^)}  , 

^ - =  0 

da  ^ 


da 


where 


X(a^  b^,  c^,  a)  =  ^  +  aV^a)  +  b"(c%)^  , 

n  1  N  W. 

f-CR"")  =  1  +  ^  x;  R  n  -^  . 

"  2  j=l  Uj 

The  solution  of  Eqs.  (5)  may  be  represented  in  the  form 


1  j.  ^n,  ^  vn,_n,s2 


Rij\a) 


=  Pi,(-)  +  ,  '  - 


=  qj^('^)  +  "  c^w^(a) 

k=l 


b^^^(a)  =  q«(a)  +  :  c^w^(a)  , 

k=l  ^ 


c"^^(a) 


q-,(a)  +  c^w^(a)  . 

k=l 
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where  Che  vector  P,  constituted  of  elements  p^j(o)  and 

q  (a)j  is  a  particular  solution  of  (5),  and  the  vectors 

H  composed  of  elements  h..(cf)  and  w  (a),  are  three 

independent  solutions  of  the  homogeneous  form  of  (5) ,  for 

k  =  1,  2,  3.  We  choose  the  initial  conditions  P(0) 

k 

identically  zero,  and  H  (0)  having  all  of  its  elements 
zero  except  for  that  component  which  corresponds  to 
w  ,  k  =  1.  2,  3.  The  choice  of  initial  conditions  allows 
us  to  identify  the  multipliers  c^  (not  to  be  confused  as 
powers  of  c)  as 


(7) 


a(0) 

b(0) 

c(0) 


We  seek  the  three  missing  initial  values  (7). 

Let  us  make  the  conversion  from  measurements  of 
r^.(c)  to  measureirients  of  R.  .(1)  by  setting 


(8) 


0.  .  «=  4u.b.  . 


Then  we  v/rite  the  expression  to  be  minimized  as 

2 


(9) 


S  -  S  {R?t^(l)  -  0.  .} 


1  -  J 


This  expression  is  a  minimum  when  the  following  requirements 
are  met : 


(10) 


11  =  0 


hS 


=  0 


AS 

c^C 


0 


By  means  of  (7).  these  coi  iitions  are  equivalent  to 


(11)  ^  =  0  .  =  0  ,  =  0  . 

r^C'"  ?>C 

n+l 

We  replace  (1)  in  (9)  bv  its  representation  (6). 

Then  Eqs.  (11)  lead  us  to  a  third  order  system  of  linear 
algebraic  equations  of  the  form 

(12)  AX  =  B  . 


where  the  elements  of  the  matrix  A  and  the  vector  B  are, 
respectively, 


(13) 


A,,  =  h’-„(l)  1,3  (1) 

i-J  ^  ^  mn^  mn^ 
m .  n 


(14)  B.  =  7  h^  (1)  [p  -  p  (1)]  . 

1  _  _  mn'  '■'^mn  ^mn'' 


m  .n 


and  the  solution  vector  X  has  as  its  components  the  multipl 
1  2  J 

ers  c  .  c  .  c  .  In  this  way  we  obtain  the  current  approx¬ 
imation  to  the  parameters  a  and  b  in  the  albedo  function, 
and  the  thickness  of  the  slab.  c.  To  begin  the  calculations 
we  produce  an  initial  approximation  by  integrating  the  sys 
tern  of  nonlinear  differential  equations  (3)  with  R(0)  =  0. 
and  using  estimated  values  of  the  parameters.  Several 
iterations  of  the  method  are  usually  sufficient  to  attain 
convergence,  if  convergence  takes  place  at  all. 


5.  NUMERICAL  EXPERIMENTS  I:  MANY  ACCURATE  OBSERVATIONS 

Some  of  the  observations  {^ij}  ^  plotted 

in  Fig.  3. 

Several  types  of  numerical  experiments  are  carried 
out.  In  the  first  class  of  experiments,  49  perfectly 
accurate  (to  about  8  decimal  figures)  observations  are 
used  to  determine  the  quantities  a,  b,  and  c.  The  49 
observations  correspond  to  measurements  for  7  outgoing  angles 
for  each  of  7  incident  directions,  as  listed  in  Table  1, 
Chapter  II.  In  one  of  the  trials,  the  initial  approximation 
is  generated  with  the  guesses  a  =  2.  2  (+107o  in  error), 
b  =  -1.8  (+107o  in  error),  and  c  =  1.5  (4  507.  in  error). 

After  four  iterations,  our  estimates  are  decidedly  better; 
a  =  1.99895  (-.0057o  in  error),  b  «  -1.99824  (4-.0147  in 
error),  and  c  =  1.004  (+.  047o  in  error).  We  repeat  the 
experiment,  with  one  change;  our  initial  estimate  of  the 
thickness  is  0.5,  only  one-half  of  the  correct  value. 

This  time  the  solution  diverges  and  the  procedure  fails. 

Fig.  4a  illustrates  the  rapid  rate  of  convergence  to 
the  correct  solution  for  the  albedo  function  \(t)  ,  for 
the  successful  trial.  The  initial  approximation  is  designa¬ 
ted  in  the  figure  by  the  numeral  0,  the  first  approximation 
by  1.  The  fourth  approximation  coincides  with  the  true 
solution.  Fig.  4b  shows  how  the  initial  approximation  to 
the  function  R^j(c)  for  incident  direction  cosine  0.5 
deviates  from  the  observed  values  as  indicated  by  the  curve 
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labelled  "True".  The  first  approximation  lies  very  close 
to  the  correct  values .  and  the  fourth  approximation  is 
graphically  identical  with  the  correct  solution. 

6^^ _ NUMERICAL  EXP E^j^NTS  I:  EFFECT  OF  ANGLE  OF  INC IDENCE 

In  a  second  series  of  experiments,  the  incident  angle 
is  held  fixed  and  accurate  observations  are  made  of  the 
outgoing  radiation  in  seven  directions.  The  incident 
direction  is  varied  from  one  trial  to  the  next  in  order 
to  study  the  effect  of  the  position  of  the  source.  The 
initial  approximation  used  in  each  trial  is  the  same,  the 
correct  solution.  Due  to  a  possible  J.ack  of  information 
in  the  observations  for  a  given  trial.,  the  successive 
approximations  may  drift  av/ay  from  the  correct  solution  and 
converge  to  another.  Several  iterations  are  carr'ed  out 
in  each  run.  The  results  of  the  seven  runs  with  each  of 
seven  angles  are  given  in  Table  1.  The  incident  angle  is 
given  in  degrees,  and  the  fourth  approximations  to  the 
constants  a,  b,  and  the  thickness  c  are  tabulated. 
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TABLE  1. 

NUMERICAL  RESULTS  WITH  DATA  FROM 
VARIOUS  INPUT  DIRECTIONS 


Trial 

Incident 

Angle 

a 

b 

c 

1 

88.5° 

2.00231 

-2.00456 

0.999262 

2 

82.6° 

2.00206 

-2.00351 

0.99V361 

3 

72.  7° 

2.00032 

-2.00048 

0.999933 

4 

60.0° 

2.00072 

-1.99952 

1.00007 

5 

45.3° 

1.99e'^9 

-1.99841 

1.00021 

6 

29.5° 

2.00029 

-2.00040 

0.999972 

7 

13 . 0° 

1.99962 

-1.99937 

1.00009 

Correct 

values 

2.0 

-2.0 

1.0 

Table  i  indicates  that  the  results  are  very  good, 

no  matter  what  the  incident  angle  is.  Examination  cf  the 

computer  output  shows  that  convergence  has  occurred,  in 

each  trial ,  to  about  four  significant  figures.  Angles 

13°  through  72. 7°  give  nearly  perfect  values  of  the  con- 

o  o 

stants.  Angles  82.6  and  88  3",  close  to  grazing  incidence, 
give  values  which  are  only  slightly  poorer,  0.1%  to  0.  27o 
off. 


7.  NUMERICAL  EXPERIMENTS  III;  EFI ECT  C-F  NOISY  OBSERVATIONS 
In  this  study,  errors  of  different  kinds  and  amounts 
are  introduced  into  the  observations,  and  the  results  of 
the  determination  of  parameters  are  compared  with  the 
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results  of  Exneriments  I  and  II  in  which  no  errors  were 
present.  Errors  are  given  in  percentages  with  p'’us  or 
minus  signs.  The  errors  in  a  given  trial  are  either  of 
equal  magnitude,  or  they  occur  in  a  Gaussian  distribution. 

Let  tj^.'  t2 . t-j  be  seven  true  measurements  of  R. 

When  we  speak  of  noisy  observations  of  +  57o  equal 
magnitude  errors,  we  mean  that  the  noisy  observations  are 

n^^  =  (1  +  .  05)  tj^  , 

n2  ■=  (1  -  ,  05)to  , 

(1) 

n^  =  (1  +  .05)t2  . 

Let  gj^,  g2,  •  •  ■  .  gy  be  seven  (signed)  Gaussian  deviates, 
with  standard  deviation  unity.  Noisy  observations  with 
5%  Gaussian  distribution  of  errors  are  defined  to  be 

=  (1  +  .  05gj^)  ti^  , 

(2)  -2  -  <1  +  ■«82)^2  > 

m^  =  (1  +  .OSg^)!^  . 

The  results  of  numerical  experiments  with  noisy 
observations,  with  one  or  seven  angles  of  incidence,  are 
presented  in  Table  2.  Clearly,  the  accuracy  of  the  esti¬ 
mation  of  the  three  constants  is  in  proportion  to  the 
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accuracy  of  the  observations.  In  contrast  to  the  trials 
with  perfect  measurements,  experiments  using  noisy  observa¬ 
tions  are  more  successful  when  there  is  an  abundance  of 
data,  and  when  the  data  are  limited  these  experiments 
show  the  effect  of  the  incident  direction.  Errors  with 
Gaussian  errors  give  poorer  results,  which  may  be  due  to 
the  particular  set  of  7  or  49  Gaussian  deviates  chosen 
arbitrarily  from  a  book  of  random  numbers  [3] . 


8.  NUMERICAL  EXPERIMENTS  IVj^  E^ECT  OF  CRITER^'; 

This  series  of  experiments  is  intended  to  investi¬ 
gate  the  effect  of  using  a  minimax  criterion  rather  than 
a  least  squares  condition  for  the  determination  of  the 
unknown  parameters .  a ^  b  and  c.  The  condition  requires 
that  the  constants  be  chosen  to  minimize  the  maximum  of 
the  absolute  value  of  the  difference  between  R V .  (1)  and 

ij 

,  where  R?^^(l)  is  the  solution  of  (4.5).  This  is 
formulated  as  a  linear  programming  problem  in  which  we 
have  the  linear  inequalities  [4], 


(1) 


-  p.  . 

ij 


iPijO)  + 


k=l 


€  .  . 

3-J 


e .  . 

ij 


<  e 


whe^e  the  subscripts  take  on  the  values  appropriate  to  the 

trial  under  consideration.  A  standard  linear  programiriing 

code  [5]  is  used  to  determine  the  nstants  c^,  and 

ij 

the  maximum  deviation  g  .  Two  numerical  experiments  are 
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carried  out.,  one  with  +  TL  equal  magnitude  errors  in  the 
observations,  the  other  with  TL  Gaussian  errors.  The 
incident  angle  is  60°.  The  results  are  given  in  Table  3, 
where  we  show  the  values  of  the  two  constants  in  the 
albedo  functions,  a  and  b,  the  thickness  c,  and  the  maxi¬ 
mum  deviation  €,  for  each  approximation.  The  results  for 
the  case  where  the  errors  are  all  of  the  same  relative 
size  are  excellent.  The  trial  using  Gaussian  errors  yields 
constants  which  are  not  quite  as  good,  yet  these  results 
are  surprisingly  better  than  one  might  expect. 


TABLE  3. 

NUMERICAL  RESULTS  USING  MINIMAX  CRITERION 


Type  of 
Errors 

Approxi¬ 

mation 

a 

b 

c 

Maximum 

Deviation 

+  TL 

0 

2.00000 

-2.00000 

1.00000 

equal 

1 

1.99948 

-1.99961 

1.00001 

. 0200000 

magnitude 

2 

1.99948 

-1.99959 

1.00001 

. 0200000 

3 

1.99948 

-1.99960 

1.00001 

. 0200000 

0 

2.00000 

-2.00000 

1.00000 

TL 

1 

1. 76462 

-1,67267 

1.03357 

.0294158 

Gaussian 

2 

1. 76265 

-1.67487 

1.03841 

.0293736 

3 

1.76279 

-1.67484 

1.03852 

.0293722 

9.  NUMERICAL  EXPERIMENTS  V;  CONSTRUCTION  OF  MODEL  ATMOSPHERES 
Suppose  that  v/e  desire  to  construct  a  model  atmosphere 
with  the  optical  property  that  whenever  light  is  incident  at 
angles  near  the  normal,  the  distribution  of  diffusely  reflected 


-  ■ 
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lighc  is  greatest  close  to  90^^  from  the  normal.  We  require 
that  the  optical  thickness  c  be  about  1.0,  and  the  albedo 
profile  is  to  be  parabolic, 

(1)  ^(t)  =  i  +  ar  +^bT^, 

where  the  constants  a  and  b  arc  to  be  suitably  chosen. 

The  albedo  should  not  be  greater  than  unity. 

The  reflection  pattern,  for  an  incident  angle  of 
13°,  is  to  have  the  form  indicated  by  the  seven  x's  in 
Fig.  5a.  The  units  are  given  relative  to  an  incident  net 
flux  of  n.  As  our  initial  estimate,  we  believe  that  the 
slab  should  have  thickness  one.  and  that  the  parameters 
be  a  =  2,  and  b  =  -2.  Then  the  albedo  has  the  form 
given  in  Fig.  5b  by  the  curve  labelled  "initial”,  the 
horizontal  line  at  t  ==  1  indicating  the  upper  surface 
c.  The  reflection  function  has  the  form  given  in  Fig.  5a 
by  the  dots,  whose  values  are  much  too  low  in  the  region 
80°  -  90°.  Ho  w  should  the  optical  design  of  this  slab  be 
modified  for  better  agreement  with  the  requirements?  The 
answer  is  not  at  all  obvious. 

We  carry  out  a  nusierical  experiment  in  which  a 
better  model  is  to  be  found,  which  makes  the  sum  of  the 
squares  of  the  deviations  from  the  desired  values  a  minimum. 
The  condition  is  to  minimize  the  sum  S, 

(2)  S  =  -  (d.  -  , 

i=l  ^ 


nimax 


(b)  The  albedo 


where  is  the  desired  value  of  the  reflection  function 

for  output  angle  arc  cosine  lu,  and  r^^^  is  the  solution 
of  the  differential  equations  for  the  r  function,  and 
k  =  7,  corresponding  to  input  angle  of  13°.  This  problem 
is  mathematically  the  same  as  the  earlier  inverse  problems 
of  this  chapter.  The  method  of  solution  is  also  similar, 
and  after  five  iterations  and  3  minutes  of  computing  time, 
we  obtain  the  solution  a  =  1.383,  b  =  —1.140,  and  c  =  1.117. 
The  albedo  function  is  shown  in  Fig.  5b  by  the  curve  label¬ 
led  ''Least  squares",  the  reflection  function  is  indicated 
by  the  circled  dots  in  Fig.  5a.  A  smooth  curve  is  drav^m 
between  the  dots,  showing  the  probable  continuous  distri— 
uution.  This  curve  is  in  better  agreement  with  the  require¬ 
ments  at  83°  and  88.5°. 


We  perform  another  experiment  in  which  the  criterion 
is  to  minimize  the  maximum  deviation.  This  condition  is 
gi^’cn  by  Eqs.  (8.1),  where  p.  .  =  4u.d.  and  j  =  7.  After 

ij  11 

five  iterations,  the  solution  is  a  =  0.744,  b  =  —0.415, 
and  optical  thickness  c  =  1.431.  The  albedo  has  the  form 
represented  in  Fig.  5b  by  the  curve  labelled  "Minimax", 
and  the  reflection  function  is  indicated  by  dcts  within 


squares  in  Fig.  5a.  'Ihe  reflection  function  for  this  slab 
is  in  very  good  agreement  with  the  requirements. 

Other  possible  approaches  to  problems  of  design 
include  dynamic  programming  and  invariant  imbedding  [6,  7]. 


81- 


REFERENCES 


1.  Chandrasekhar.  S. ,  Radiative  Transfer,  Dover  Publications 

Inc.  ,  New  York.  196^Q. 

2.  Bellman.  R.  ,  H.  Kagiw'ada ,  R.  Kalaba,  and  S.  Ueno .  Inverse 

Problems  in  R^iative  Transfer :  Leered  Med^a,  TTie  RAND 
CorporatTon^  RM  ”^28T— ARi'*S.,  December 

3.  The  RAND  Corporation,  A  Million  Random  Digits  with  100,000 

Normal  Deviates ,  The~Free  Press,  Glencoe,  ITlTnois 19 53 . 

4.  Dantzig,  G. ,  Linear  Programming  and  Extensions,  Princeton 

University l?ress ,  Princeton,  1933 . 

5.  Clasen,  R.  J.  ,  "RS  MSIFB  —  Linear  Programming  Subroutine, 

FORTRAN  IV  Coded,”  RAND  7044  Library  Routine  W009,  The 
RAND  Corporation,  Santa  Monica,  1964. 

6.  Stagg,  G.  W. ,  and  M.  Watson,  ”D3mamic  Programming  —  Trans¬ 

mission  Line  Design,”  IEEE  International  Convention  Re¬ 
cord,  Part  3,  pp.  55-61,  1964. 

7.  Tierney,  M.  S. ,  P.  Waltman  and  G.  M.  Wing,  ”Some  Problems 

in  the  Optimal  Design  of  Shields  and  Reflection  in 
Particle  and  Wave  Physics,”  Sandia  Laboratory,  Albuquerque 
New  Mexico . 


?  1 


BLANK  PAGE 


CHAPTER  FOUR 


I NVERSE  PROBLEMS  IN  RADIATIVE  TRANSFER; 

ANISOTROPIC  SCATTERING 

1.  INTRODUCTION 

Inverse  problems  in  radiative  transfer  for  a  medium 
with  anisotropic  scattering  [1,  2]  may  be  treated  in  a 
manner  similar  to  that  used  in  the  isotropic  case.  We 
consider  a  plane  parallel  slab  of  finite  optical  thickness 
.  For  simplicity  let  us  suppose  that  both  the  albedo 
X  and  the  anisotropic  phase  function  are  independent  of 
optical  height.  Let  us  take  the  phase  function  to  be 

(1)  p(P  )  =  1  +  a  cos  0  ,  r,,  p  d  Q  =  1  , 

where  is  the  scattering  angle,  and  a  is  a  parameter 
of  the  medium  and  is  to  be  determined  on  the  basis  of 
measurements  of  the  diffusely  reflected  radiation.  An 
integration  over  solid  angle  gives  the  normalization  con¬ 
dition  in  (1).  Let  us  consider  the  case  in  which  a  =  1. 
This  approximately  corresponds  to  the  forward  phase  diagram 
of  Saturn  [3].  It  may  be  noted  that  Horak  considers  inverse 
problems  in  planetary  atmospheres  in  [3]. 

Parallel  rays  of  light  of  net  tiux  tt  per  unit 
area  normal  to  the  direction  of  propagation  are  incident 
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on  thiC  upper  surface  of  the  slab.  The  directioa  jf  the 
rays  is  characterized  by  <  '^q  <  1),  the  cosine  of 

the  polar  angle  measured  from  the  doumward  normal,  and  by 
the  azimuth  angle  q  .  The  phase  function  nay  be  written 
as  a  function  of  polar  and  azimuth  angles  of  incidence  and 
scattering,  p(u,  r;  Uq,  -q)*  The  lower  surface  of  the 
medium  is  a  perfect  absorber. 

Let  the  diffusely  reflected  intensity  in  the  direc¬ 
tion  specified  by  (u^  '^)  be  r(T^,  u,  t;  Uq,  ig),  where 
is  the  azimuth  angle  (0  <  r  <  2"^)  .  Measurements  of 
r,  the  set  {b"*,  are  made  and  we  wish  to  determine  the 
value  of  a  for  the  slab. 


2.  THE  S  FUNCTION 


Let  us  define  function  S.  which  is  related  to  the 
diffusely  reflected  intensity  function  r,  by  the  formula 


(1) 


r  (  T  .  u ,  r  j  Uq  ,  ^Q )  ~ 


S(tj^.u,t;  Ug,^^) 


4u 


We  wish  to  derive  a  differential-integral  equation  for 
the  S  function  by  the  method  of  invariant  imbedding 
[  2 ,  4  6  j  . 

Let  U3  define  another  function  P, 


P(t, .  u,  u 


0*  •O''  u 


0 


r  (  T  ,  U  ,  P  J  Uq  ,  ,pg  ) 

v 


(2) 
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which  is  the  reflected  radiation  per  unit,  horizontal  area 
produced  by  a  unit  input  of  radiation  on  a  unit  of  area  in 
the  top  surface.  Now  we  add  a  thin  layer  of  thi.ckness  A 
to  the  top  of  the  slab  of  thickness  .  The  P  function 

for  this  slab  may  be  expressed  in  the  form. 


P(  t.|  .  u  .  r -  A(^  1-  ^ j  >  '^0  *  0^ 


A 


+  —  7-  P(p’  r; 


Uq  4Tt 


2n  1 


+  i'g  ,  A  p(u.t;  u' ,-4 ')dn'd4. 

2n  ^1  ^  ^ 


2n  1 

r 

0  '0 


A  X 


+  i  I  P(T^.U  ,cr  ;  Uq, Tq)  ^  ^ 


p(-Uq.4q;  u!,T')du’do 


The  terms  on  the  right  hand  side  of  the  equation  represent 
the  following  processes:  (1)  no  interaction  in  A  ,  (2) 
absorption  in  A  of  the  incoming  and  outgoing  rays,  (3)  a 
single  scattering  in  "  .  (4)  multiple  scattering  in  the 
slab  of  thickness  followed  by  an  interaction  in  A  . 

(5)  interaction  in  X  followed  by  multiple  scattering  in 
tlie  slab  below.  (6)  multiple  scattering  in  the  slab  of 
thickness  followed  by  an  interaction  in  A  ,  followed 
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Dy  multiple  scattering  in  the  slab  of  thickness  .  and 

2 

(7)  o(A)  represents  other  processes  which  involve  “  , 

or  higher  powers  of  A  . 

Now  the  relation  between  S  and  P  is 


P(t,  .  u.  ;  Up,.  ■:')  = 


Uq-Tq) 


so  that  when  we  substitute  this  expression  into  (3) ,  we 
find  that  S  satisfies  the  equation 
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(6) 


S(t^+A,  u.  Uq.  cpq)  =  S(tj,  u.  ct;  Uq,  cpq) 

tS(Tj^,u,!V);  Mq.cpq) 


+  A 


^T- 


+  o(A)  • 


We  let  A  -*  0  and  we  obtain  the  desired  integro- differential 
equation 


iS(t^,  ,  /I  ,  1 


riT- 


1  2n  1  (  ,1 

+  X-  r  r  S(t,,u  ,cr  ;  Wa,cpq)p(u,cp;  ^',cp')^^d^' 

.Q  '  0  ^  u  u 


2tt  1 


dui 


7^n  Iq  Iq  Po,cpq)p(  ^Q,WQ'y  UQ,cpQ)-~dcfQ 


.2n  1 


^0 


+  -  —  !  J  S(T,,u',a-';  ^o♦ct)Q)p(-^A,ccQ;  u',cp')^- 

(4n)^  0  0^  W 


2tt  1  . 

0  0  Uq 


A  simplification  arises  if  it  is  assumed  that  the 
phase  function  may  be  expanded  in  the  Fourier  series 

M 

(8)  p(u,  :r..  Uq,  'Pq)  “  S  c^P^Ccos  9), 

m"0 

where  the  Legendre  polynomial  of  degree  m. 

The  angular  dependence  of  expansion  (8)  may  be  decomposed 
into  polar  and  azimuth  factors  by  the  use  of  the  addition 
rule  of  Legendre  functions.  Then  Eq.  (8)  becomes 
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The  function  P^(x)  is  the  associated  Legendre  function  of 
degree  i.  order  m.  Noting  the  form  of  this  equation,  we 
expand  the  S  function  in  a  similar  manner. 


M 


,(m) 


(10)  m=0  S'^‘‘‘^(T^.p.aQ)cos  m(  v- -r) 


Substitution  of  (10)  in  (7)  leads  to  the  equations  for  the 
Fourier  components  of  S. 

(11)  +  (1  +  1  "  (-l)’-^c.y-2'i'f5'(u)v"(a  ) 

1  ^  i=m  ^(i+m).'  ^  ^  ^ 

v;here 

(12)  •'T'(u)  =  P^(u)  +  .u.a’)P^(u')%'  . 

for  m  =  0.  1,  2 . M.  The  functions  .  u-:  Uq) 

possess  the  symmetry  property 

(13)  S^^^T^.u.Ug)  =  s('"\'-^.,.p.a)- 
The  initial  conditions  are 


S^"’^(0.ij,UQ)  =  0 


(14) 
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By  the  use  of  Gaussian  quadrature  on  the  interval 
(0.1).  the  integrals  (12)  are  replaced  by  sums.  Also, 
the  function  (t . u .  Uq)  is  replaced  by  a  function 

of  one  independent  variable.  where  the  angles 

are  discretized  sucl  that  Uq  a.,  and  a  -  . 

i.j  =  1,  2.  ....  N.  Then  we  have  the  approximate  systam 


(15) 


i  N  C  (‘^.^  — 


-----  -1  (-  +  ^-  )3y" 

1  '"i 


•y  /  r\  t  \  h4in  (km).  ,  ,m  .  ,m 

On,)  y  <  IvT^.);  ‘^k'kCkj 


=  0.  1,  ....  M;  i  =  1.  2 . N;  j  =  1.  2, 


.  N) 


where 


(16) 


=  P^(aa  +  (-U 
^  ^  2(2 


,)  j=l 


S<?>pJ(a.)  J 

tj  k'' 


The  discrete  cosines  Uj  are  the  roots  of  the  shifted 
Legendre  polynominal  of  degree  N.  P^(x)  and  the  quantities 
Wj  are  the  corresponding  weights.  The  initial  conditions 


(17) 


S^^\o)  =  0 

1-J 


The  solution  of  this  initial  value  integration  problem  for 
a  system  of  ordinary  differential  equations  (15)  is  approx¬ 
imately  equal  to  the  solution  of  the  original  integro 
differencial  system. 
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3.  AN  INVERSE  PROBLEM 

Consider  .he  case  in  which  the  slab  is  of  thickness 
=  0.  2,  the  albedo  is  '  =  I.-  and  we  choose  N  =  7  for 
the  quadrature.  For  the  phase  function 

(1)  p  =  1  +■  a  cos  9  , 


the  parameters  are 


(2)  M  -  1,  Cq  =  1,  Cj^  =  a  1  . 

For  a  numerical  experiment,  we  take  Eqs.  (2.15)  and  inte¬ 
grate  from  =  0  with  initial  conditions  (2.17)  to 
T-^  =  0.2,  using  'n  integration  grid  size  of  At^  =  0.01. 
Using  (2.10)  and  (2.1),  we  produce 


(3)  -  r(0.2.  '  '^0^ 

for  -.'Q  =  0,  and  =  0°,  30°,  60°.  ...,  180°  as 
k  =  1.  2.  7.  The  set  represents  our  measure¬ 

ments  of  the  diffuse  reflection  fiei.d.  from  which  we  hope 
to  estimate  the  unknown  parameter  a.  The  condition  shall 
be  to  minimize  the  sum  of  squares  of  deviations, 


(4) 


[r(0,  2 .  u.  , 

i  ,1 3  .  k 


2 


where  the  function  r  is  the  solution  of  the  Eqs.  (2.15)  - 
(2.17)  using  (2.1)  and  (2.10).  The  measurements  for  r  =  0° 
and  for  r  =  180°  are  shown  in  Fig.  1.  when  Uq  =  0.5, 

Tq  =  0.  These  data  were  produced  niimerically  with  the 


Fig.  1.  Fourteen  observations  of  the  diffusely  reflected  intensity 

r(u,(p;  phase  function  p(9)  =  1  +  cos 
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use  of  Eqs.  (2  i).  (2.10)  -  (2.14).  Tlie  program  for  the 
calculation  of  the  r  function  is  given  in  Appendix  D. 


4^  METHOD  OF  SOLUTION 

This  problem  may  be  solved  by  successive  approximations 


using  quasilinearization  [  7 . 8]  .  Let  us  v^ite  the  function 

as  S  .  .  ,  and  similarly  V^.  -  *  .  .  .  P^(u,)  -*  P  ,  .  . 

mij  '  ki  mki  k^  ' *  mk^ 


-  p 


mk^ 


The  linear  equations  for  the  (n+1)^  approximation  are 

dr, 


+  U2-  5.  )  "  (-1) 


k+m  (k-m)  ^n^, 


+  (S^tl-  -  s".  .)(-l)(i-  +  i-) 


n+1  c^n 


+  X(2  V  )  “  f(S  T,  -  S  . ,)5  +  (s  ; , 

^  Om  .  ,  '  miL  mjL  mt''.  ^  mi/. 


mil-  ^rai  // 


(m  =  0,  1;  i  =  1.  1,  -  7;  j  =  1,  2,  ....  1), 


=  0  ''or  a  =  c^  , 


where 
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P  C^zDl)'  c^’t 

2(2  '^n^;  mkj  ^ (k+m).' 


‘mkt 


(_l)k(m  N  W. 

p  +  A.—''  _  -  S  p  _-L  . 

mk/.  2(2-^.0j^)  j=i  mkj  u^ 


In  these  equations 


n+1  n+1 


n  n-fl  n 
Cl  ,  Cq  =  Cq 


The  initial  conditions  are 


(0)  =  (0) 

mij  ^  ' 


and  the  boundary  condition  is 


— ^-rr  1  ^  [  "  S^1'f(0.  2)cos  mcrj,  —  4u.b.  .,  ]  “}  =  0 

r,a''+l  k,j,k  m=0  ""-J  “I'  ijk'  j 


Let  us  represent  the  (n+1)®  approximation  of  S  as 
a  linear  combination  of  a  particular  solution  and  a  homo¬ 
geneous  solution 


S^i'l'C'r  )  =p  ..(t,)  +  ah  ..(’’"t) 
mij^  V  ‘^mij^  I'  V 


In  terras  of  numerically  known  quantities, 


(9)  =i--l 


!  PlijCOSTk)(h^.j  +  h^.  .cos.rk) 


7  [h  . .  +  hi . .cosok] 


where  the  functions  p  and  h  are  evaluated  at  =  0.2, 

and  the  initial  conditions  for  p  and  h  are  suitably 
chosen. 

By  making  use  of  the  symmetry  property  of  S  we  need 

2 

consider,  not  a  system  of  2N  equations,  but  only 
2N(N+l)/2  =  N(N+1)  equations.  For  N  =  7,  this  means  that 
7.8  =  56  equations  define  the  particular  solution,  and 
another  56  define  tie  homogeneous  solution.  Twenty-one 
integration  grid  points  cover  the  range  0  <  Ti  <  0.2  . 
with  =  0.01.  The  storage  requirements  arc  21  x  56 

for  the  p  solution,  21  x  56  for  the  h  solution  and 
21x56  for  •  This  problem  is  certainly  feasible 

for  ntunerical  solution  with  the  IBM  7044  or  the  7090. 
Numerical  experiments  will  be  carried  out  in  the  near 
future.  Such  studies  should  prove  useful  in  the  planning 
and  analysis  of  investigations  of  planetary  atmospheres 
[3,9-18],  stellar  radiation  in  the  galaxy  [19],  and  radia¬ 
tion  fields  in  the  sea  [2C1  22]  . 
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CHAPTER  FIVE 

^  INVERSE  PROBLEM  IN  NEUTRON  TR/'.NSPORT  THEORY 

Ll  introduction 

The  theory  of  neutron  transport  and  the  theory  of 
radiative  transfer  [1]  are  devoted  to  problems  of  determining 
the  properties  of  radiation  fields  produced  by  given  sources 
in  a  given  medium.  Inverse  problems  in  transport  theory  are 
thost  in  which  we  seek  to  determine  the  properties  of  the  med¬ 
ium,  given  those  of  the  indicent  radiation  and  the  radiation 
fields  [2-4]. 

In  this  chapter,  we  study  inverse  problems  in  transport 
theory  from  the  point  of  view  of  dynamic  programming  [5] . 

Our  aim  is  to  produce  a  feasible  computational  method  for 
estimating  the  properties  or  the  mdium  based  upon  measure¬ 
ments  of  radiation  fields  within  the  medium.  The  invariant 
imbedding  approach  to  transport  theory  is  sketched  in  Ref.  6. 

For  ease  of  exposition  v/e  consider  a  one- dimensional 
transport  process.  The  method  described  here  can  be  general¬ 
ized  to  the  vector-matrix  case,  and  thus  to  the  slab  geometry 
with  anisotropic  scattering,  to  wave  propagation  [7],  and 
to  transmission  lines. 
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2.  FORMULATION 

Consider  t.he  one  dimensional  mediani  shovNm  in  Fig.  1. 


0 - > 


1 

4 - —j.. 

bo-~-o  bj_ 


-*1  - i  <  -  c 

^N-  1 


Fig.  1.  A  one  dimensional  transport  process. 

It  consists  of  N  homogeneous  sections  (b^ .  > 

i  *=  0 ,  1,  2,  .....  N  1.  When  a  neutron  travels  tb -ough  a 

distance  in  the  i^^  section,  there  is  probability 
a^  that  it  will  interact  with  the  medium.  The  result  of 
an  interaction  is  th.t  the  original  neutron  is  absorbed  and 
two  daughter  neutrons  appear,  one  traveling  in  each  direc¬ 
tion.  Suppose  that  c  neutrons  per  unit  time  are  incident 
from  e  right  and  zero  neutrons  per  unit  time  from  the 

left.  We  denote  the  average  number  of  particles  per  unit 
time  passing  the  point  r.  and  moving  to  the  right  by  u(x) 
and  the  same,  quantity  for  the  leftward  m.oving  particles  by 
v(x)  Suppose  that  measuremenus  on  the  internal  intensities 

are  made  at  various  points  x  =  x-  t  b.;  e.g.  . 

^  J 

(  I )  u  ( X . )  =  w .  .  i  =  1 ,  2 . M  . 

Our  aim  is  to  estimate  the  characteristics  of  the  medium, 
the  quantities  a.^,  i  =1.  2,  ....  N.  on  the  basis  of  these 


observations . 
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As  is  shown  in  Rei.  6.  the  internal  intensities  satisfy 
the  differential  equations 

u  =  a^  V  . 

(2) 

—  V  =  a.  u  , 

1 

(3)  b._^  ^  X  y  b.  ,  i  =  1,  2.  . . . ,  N  , 

where  the  dot  indicates  differentiation  with  respect  to  x. 
The  analytical  solution  is  of  no  import,  since  we  wish  to 
consider  this  as  a  prototype  of  more  complex  processes  for 
which  a  computational  treatment  in  mandatory.  In  addition. 
u(x)  and  v(x)  are  continuous  at  the  interfaces 

(4)  u(b^  -  0)  «  u(b^  +  0) 

(5)  v(b^  -  0)  =  v(b^  +  0)  ,  i  -=  1,  2,  .  .  .  ,  N  -  1  , 

and 

(6)  u(0)  =  0 

(7)  v(bj^)  =  c  . 

wish  to  select  the  N  constants  a-,,  a^,  a^ ,  so  as 

to  minimize  the  sum  '^f  the  squares  of  the  deviations  S, 

M  „ 

(8)  S  =  S  {u(x.  )  -  w.  ] 

i»l  ^  ^ 


I 
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3._  DYNAMIC  PROGRAMMING 

Let  es  suppose  that  the  fractions  u  and  v  are 
subject  to  the  conditions  of  Section  2  and 


(1) 

u(bj^) 

~  *^1 

(2) 

v(bj^) 

=  c  2  • 

In  addition  we  write 

(3) 

fj^CCf, 

M 

.  c«)  =  min  2 
^  i=l 

fu(x.)  -  w.l“  , 

where  the 

minimization  is  over 

the  absorption  coefficients 

a^,  ^2'  • • 

■  ’ 

The  number  of 

observation'^  on  the  first 

K  intervals  is  Mj,.  Ne  view  K  as  a  parameter  taking 
on  the  values  1.  2.  and  c^^  and  are  also  viewed 

as  variables.  Then  we  write 


(4)  ^l^^'l’  *^2^  ^  . 

where 


(5)  u(b^)  =  c^ 

(5)  v(b^)  =  c^ 

(7)  u  =  a^  V 

(8)  -  V  *=  a^  u  . 

The  absorption  coefficient 


is  chosen  so  that 


-101- 


(9)  u(0)  =  0  . 

In  addition,  the  principle  of  optimality  yields  the 
relationship 


min 


I  I 


(10) 


(11) 


^K+1^^1'  ^2^  ^+1  l^K+1  ^2^ 

K  =  1.  2 . 


^K+1  =  "  ^^i 


1 


with  i  ranging  over  integer  values  for  which 


(12) 


and 


(13) 


(14) 


{i  =  aj^^^  V  ,  u(bj^^^)  = 


V  aj^^^  u  ,  v(bj^_l_j^)  «=  C2 


In  addition  we  have  put 

(15)  =  u(bj^) 

(16)  =  ^(^K^  ■ 

In  the  usual  manner  of  dynamic  programming  this  leads 
to  a  computational  scheme  for  computing  the  sequence  of 
functions  of  two  variables  C2)  .  ^2^’ 
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and  in  principle  solves  our  estimation  problem.  In  the 
event  that  we  do  not  wish  to  require  that  u(0)  0,  we 

may  determine  the  function  ^2^  this  way: 

^1 

min  9  .  9 

(17)  ^l^^^l’  ^2  ^1  ^  (u(x^.)  - 

i=l 


where  \  is  a  suitably  large  parameter. 


^  AN  APPROXIMATE  THEORY 

While  the  original  physical  problem  is  a  two-dimensional 
problem,  it  may  be  well— represented  as  a  one-dimensional 
problem.  Suppose  that  there  are  K  segments  of  the  medium 
and  that  the  input  is  v(b,,)  ==  c.  The  absorption  coefficients 


a^,  a2^  •  •  •  j  should  be  chosen  to  secure  a  minimum  sum  of 

squares  of  deviations  from  the  measurements.  Having  picked 
the  absorption  coefficients,  we  may  calculate  the  reflection 
coefficient  r(v(bj^))  for  this  segmented  medium.  At  the 
end  bj^,  the  function  u  is  esseiitially  determined  by  v 
and  r(v),  u(bj^)  *=  v(bj^)  r(v(bj^)).  The  single  variable 
vCHr)  ”  c  may  then  suffice  to  specify  the  state  at  the 
right  end  of  the  segment. 

Let  us  define  the  function  g^(c) 

(1)  g{q(c)  •*  the  smallest  sum  of  s^^viares  of  deviations 

on  the  first  N  segments  when  the  input 
is  c , 


and  the  function  Rj^(c), 
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Rj^Tc)  =  the  reflection  coefficient  chat  results  when 
the  optimal  set  of  absorption  coefficients  is 
used  on  the  first  N  segments,  the  input  being 
c  =  v(bj^). 


The  function  satisfies  the  inequality 


(3) 


s. 


min 

a 


"N+i 


gN(c')) 


where 


^  2 

(4)  ^>^+1  ”  T  ^N+1  ' 

and 


u  =  a  V,  v(b^^j^)  =  c  , 

(5) 

_  V  =  a  v<'bj^)R^(v(bj^))  =  u(bjj)  , 

and 


(6)  c  '  =  v(bj^)  . 

We  do  not  have  recurrence  relations  for  the  sequences  of 
functions  and  R^(c).  We  rep  lac  2qs.  (3),  (4)., 

and  (5)  by  an  approximate  set,  where  instead  of  gj^(n)  we 
introduce  the  sequence  fj^(c),  and  instead  of  R^(c)  we 
introduce  rj^(c).  In  our  approximate  theory  we  produce 
fN.^l(c)  from  the  recurrence  formula 

min  r  N 

(7)  %!(  =  )  -  a  +  fN(c')|  , 


*'  r 
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where 

(8) 

and 


‘*N+1  “  . 

1 


X. 

1 


^N+1  ' 


c '  =  v(bj^)  . 

The  following  boundary  v^alue  problem, 
u  =  a  V,  v(bj^j^^)  =  c. 

(9) 

-  V  =  a  u.  v(b^)  rj^(v(bj^,))  =  u(bj^)  . 
must  be  satisfied.  The  quantity 

(10)  =  r(b^^p 

is  obtained  as  the  solution  of  the  initial  value  problem 

(11)  r  =  a(l  -h  r^).  r(bj^)  =  • 

For  N  =  1  we  define 

(12)  fi(c)  =  a  a  [u(x. )  -  w.  ]  ^  , 

1  ^11 

where  the  svimmation  is  over  indices  for  which 

(13)  O^x.  ■'b,  , 

1  1 

and  I  is  a  weighting  constant.  Also  we  have 
u  =  a  V ,  u(  0)  =0  j 

(14) 

-V  =  au,  v(bj^)  =  c  , 


I0,v- 


We  define 


(15)  r^(c)  ~  r(bj^) 


where 


r  =  a(]  +  r^)  .  0  £  • 

(16) 

r(0)  =  0  . 


The  purpose  of  introducing  the  weight  '  >  1  is  to  insure 
a  good  fit  over  the  first  segment. 

Assuming  that  a  unique  minimizing  solution  exists., 
we  can  show  that  the  results  of  our  approximate  theory  are 
exact,  if  the  observations  are  perfectly  accurate, 

vJe  reason  inductively.  For  the  one  segment  process,  there 
exists  an  input  c^^  for  which  f^(c^)  =0  by  Eq.  (12), 

■ti 

and  the  reflection  coefficient  is  r|^(c^).  We  assume  that 

there  exists  an  input  to  the  medium  of  N  segments,  Cj^, , 

> 

such  that  fj^(cp^)  =  0.  and  that  the  reflection  coefficient 

y 

for  this  medium  is  rj^(cj^).  For  the  medium  of  N+1  seg- 
ments,  there  is  an  input  such  that  =  O'  snd 

the  input  (to  the  left)  at  bj,j  which  satisfies  condition 

>(  -y 

(9)  is  v(bj^)  =  Therefore  f^+l^^N+l^  ^ 

the  solution  is  exact. 

In  this  manner  we  have  reduced  the  original  multi¬ 
dimensional  opcimization  process  to  a  sequence  of  one¬ 
dimensional  processes. 
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5.  A  FURTHER  REDUCTION 

The  solving  of  the  nonlinear  boundary  value  problem 
of  Eq.  (4.9)  can  be  a  source  of  difficulty.  To  aid  in  this 
process  we  note  that  we  cart  \/rite 

(1)  v(bj^)  =  c  T  +  u(bj.)R  , 

which  follows  simply  from  one  of  Chandrasekhar's  invariance 
principles  [1].  The  transmission  coefficient  T  and  the 
reflection  coefficient  R  of  the  (N+l)st  segment  are 
calculated  from  the  solutions  of  the  initial— value  problems  [6] 

(2)  r  «  a(l  +  r^)  ,  r(0)  =  0 

(3)  t  *  a  r  t,  t(0)  *=  1  , 

and 

(4)  R  =  ^^^N+1  ~ 

(5)  T  =  t(bj^^^  -  b^)  . 

In  this  way  the  second  condition  in  Eq,  (4.9)  becomes 

(6)  rj^(v)v  =  (v  -  c  T)/R. 

a  nonlinear  equation  for  v  =  v(b^) 


6._  COMPUTATIONAL  PROCEDURE 

The  calculation  of  for  a  given  value  of  the 

parameter  c  may  proceed  as  follows.  We  take  a  value  of 


I'Wf"  mi 
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the  coefficient  a,  and  we  produce  numerically  the  reflec¬ 
tion  and  transmission  coefficients,  R  and  T.  Assuming 
wc  can  solve  Eq.  (5.6)  for  v(bj^)  ,  we  go  on  to  solve  the 
linear  two-point  boundary-value  problem  of  Section  4  by 
producing  numerically  two  independent  solutions  of  these 
homogeneous  equations  and  determining  constants  so  that  the 
boundary  conditions  are  met.  Then  the  sum  of  squares  of 
deviations  d  is  computed,  and  the  cost  [d  4-  fj^(v(bj^))} 
is  evaluated.  We  go  through  these  steps  for  all  the  admis¬ 
sible  choices  of  a,  and  the  costs  are  compared.  The  value 
of  a  which  makes  the  cost  a  minimum  is  the  choice,  for 
the  (N4-l)^^  slab.  The  whole  procedure  is  repeated  for  the 
range  of  values  of  c  and  of  N. 

It  may  be  noted  that  in  the  calculation  of  the  reflec¬ 
tion  coefficient  the  initial  condition  is  known 

only  computationally  on  a  grid  of  values  of  the  argument. 
Experiments  are  needed  to  determine  the  required  fineness 
of  grid  to  achieve  the  required  accuracy. 

It  is  possible  to  derive  recurrenct  relations  for 
fj^(c)  and  rj^(c),  and  these  can  be  employed  in  a  variety 
of  ways  to  improve  the  accuracy  of  the  method.  Numerical 
experimentation  would  have  to  be  carried  out  to  obtain 
reliable  estimates  of  running  times  and  accuracies  [9]. 

The  method  proposed  here  can  be  ei. tended  to  treat  the  case 
where  the  interface  points  are  not  known,  though  the  compu¬ 
tational  effort  will  be  greatly  increased. 
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Experience  with  many  similar  problems  leads  us  to 
believe  that  the  propo'ed  proceviure  is  perfectly  feasible 
[8.  9]. 

7._  COMPUTATIONAL  RESULTS 

production  of  observations .  We  consider  a  homogeneous 
rod  of  unit  length  with  absorption  coefficient  a  =  0.3. 

We  produce  the  internal  fluxes  to  the  right  and  to  the  left 
due  to  a  unit  input  flux  to  the  left  at  the  end  x  =  1,  and 
no  input  at  the  other  end.  x  =  0.  To  do  this,  we  use  the 
fact  that  the  quantitv  v(l)  is  the  reflection  coefficient 
for  the  slab,  which  is  tan  a  [6].  We  integrate  the  trans¬ 
port  equations  with  the  initial  values  u(l)  =  1,  v(l)  =  tan  a 
from  X  =  1  to  X  =■  0.  This  procedure  yields  u(x)  and 
v(x)  throughout  the  rod. 

Two-dimensional  dynamic  programming  procedure  for  the 

determination  of  the  absorption  coefficients.  The  rod  is 

divided  up  into  10  homogeneous  sections  of  equal  length. 

From  the  set  of  exact  measurements,  w.  ^  u(x.),  we  wish 

j  J 

to  determine  the  set  of  optimizing  parameters  in  each 

section.  The  correct  solution  is  a.,  «  0.5  for  N  «=  1,  2. 

iN 

.  .  .  ,  10. 

In  stage  one  of  the  multi-stage  decision  process, 
the  rod  is  considered  to  consist  of  one  segment  extending 
from  x=0  to  x=0.1.  If  c^«=u(0.1),C2='v(0.1),we 
choose  the  coefficient  which  makes  u(u)  *=  0, 
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(1)  a  -  arc  tan  . 


regardless  of  the  measurements  in  this  segment.  The  minimum 


cos ; 

;  is 

f^(c^.  C2) 

=  [u(x.) 

i 

w.  ]  ,  where 

u(x^)  =  sin  a  x^ 

0  < 

X.  <' 

1 

0.1.  This 

calculation 

is  carried  out 

for  each  value 

of 

*^1 

and  0  2" 

The  computations  for  the  other  stages  N  *=  2,  3,  U, 


may  be  best  indicated  by  the  following  outline: 


TWO-DIMENSIONAL  DYNAMIC  PROGRAMMING  CALCULATIONS 
For  each  stage  N  =2.  3.  4, 

[l.  Print  N 

2.  For  each  c^ 

1.  For  each  c^ 

1.  For  each  a 

1.  Integrate  to  produce  c'^  =  u(bj^j^),  **  v(bjq_T), 

u  •=  a  V,  u(b^)  «  Cj^ 

-V  =  a  u,  v(bj^)  •=  c^ 

2 

2.  Compute  d  *  S  [u(x^)  -  '"’i  j 

3.  Find  interpolation 

^  Set  3(a)  =  d  +  c^ 

2.  Search  for  fj^(c^,  02)=  Min  [S(a)} 

3.  Print  0-2}  C2>  ^2^ 

3.  For  each  Ci 

X. 

1.  For  each 

,  1.  Shift  C2)  -  ‘N-l'^'l-  ^7} 
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There  are  four  levels  of  computation:  the  stage  N,  the 
state  .  the  state  C2-  t:he  parameter  a.  The  large 
brackets  over  the  steps  which  must  be  carried  out  at  each 
level.  By  the  statement  "shift  f^^  -  represent 

the  discarding  of  the  costs  for  stage  N— 1,  and  the  replace^ 
meat  of  f^^  ^  by  the  just  computed  costs  for  stage  N,  in 
readiness  for  the  next  stage.  This  saving  in  storage  is 
allowed  by  the  recurrence  formula  linking  the  current  cost 
with  the  cost  of  only  the  previous  stage.  The  interpola¬ 
tion  may  be  carried  out  by  the  use  of  a  linear  formula  in 
two  dimensions,  c^^  and  02*  The  print— out  value  of  a 
is,  of  course,  the  optimal  value. 

In  our  numerical  trial,  we  execute  the  algorithm  for 
three  stages  only,  the  rod  then  extending  from  x  =  0  to 
X  »■  0.3.  The  exact  observations  are 


u(0.02) 
u(0.05) 
u(0.08) 
u(0.  12) 
u(0. 15) 
u(0.18) 
u(0. 22) 
u(C. 25) 
u(0. 28) 


0.11394757  X  10“-" 
. 28484388  x  10~^ 
.45567610  X  10“^ 
.68328626  x  10"'^ 
.85381951  X  10“^ 
. 10241607  X  10" 
.12509171  X  10° 
.14206610  X  10° 
.15900853  X  10°. 


The  range  of  N  is  1  to  3,  the  section  interfaces  lying 
at  X  «  0.1,  0.2,  O.j.  The  range  of  c^^  is  0.00  (0.01) 
0.20,  21  values:  the  range  of  C2  is  1.120  '0.C02)  1.140, 
The  five  allowed  values  of  a  are  0.3  (0.1) 


11  values. 
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0.7.  From  the  direct  calculation,  i.e.,  when  the  true 
structure  of  the  rod  is  given,  we  know  the  conditions  at 
the  right  end  x  =  0.3  which  are  u(0.3)  =  0.17028385, 
v(0.3)  •=  1.1266986.  The  inverse  calculations  do  not  pro¬ 
duce  clearly  the  correct  results  a^  =  32  =  a^  =  0.5.  It 
is  believed  that  the  grids  of  values  of  c^  and  of  C2 
are  not  sufficiently  fine,  and  that  substantially  improved 
results  cannot  be  obtained  without  a  great  increase  in 
computing  expense.  The  computing  time  for  the  IbM  7044 
is  1—1/2  minutes  for  these  three  stages.  The  one-dimensional 
reduction  appears  a‘ "ractive  in  view  of  these  results. 

On e-dimensional  dynamic  p rogrammi ng  app roxima y^on 
for  the  determination  ?f  the  absorption  coefficient.  The 
rod  of  unit  length  is  divided  into  five  sections  of  equal 
length  0. 2.  Armed  with  the  internal  measurements  w^  « 
u(x^),  we  v/ish  to  determine  the  absorption  coefficient  of 
each  slab.  The  correct  choices  are  =0.5  for 
N  =  1,  2,  . . . ,  5.  In  the  one-dimensional  case,  the  only 
state  variable  is  c  =  v(bj^) . 

The  outline  immediately  following  lists  the  calcula¬ 
tions  for  producing  a^^,  (c)  and  rj^(c)  for  N  =  1, 

and  the  next  outline  shown  the  general  scheme,  N  *=  2,  3,  ... , 
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ONE--DIMENSIONAL  DYNAMIC  PROGRAMMING 


stage  N  =  1 


Print  N 

For  each  c  =  v(bj^j) 

1.  For  each  a 

1.  Solve  2  point  boundary  value  problem  for  v(0)  = 
u  =  a  V,  u(0)  =0 
V  =  a  u,  v(0. 2)  =  c 
Integrate  to  produce  u(x)  , 
ii  =  a  vs  u(0)  =0 
-V  =  a  u .  v(0)  ~  c' 

^  and  simultaneously  calculate  d  =  2  [u(x^  -■  w^]  , 

L_  and  keep  a  running  estimate  of  f.(c)  Min  fdl. 

^  "  a 

2.  Integrate  to  produce  rj^(c)  =  P(0.2)j 

P  =  a(l  +  P^) ,  p(0)  =  0 
Print  c,  a^,  c',  r^(c),  f^Cc) 


ONE  DIMENSIONAL  DYNAMIC  PROGRAMMING 


For  each  stage  N  =  2.  3,  4;,  ... 


Print  N 
For  each  c 
[1.  For  each  a 

1.  Produce  R  =  P(0.2),  T  =  t^O.2)  by  integration 

P  =  a(l  +  P^)  ,  P(0)  =  0 
t  =  a  P  t,  t(0)  =  1 

2.  Solve  the  nonlinear  equation  for  c*  = 
and  r(„,i(=')  . 

R  c'rjj  ^(c')  =  c'  -  c  T 

3.  Solve  2  point  boundary-value  problem  for 
e'  =  u(0)  =  u(bj^^) 

u  -  a  V,  v(0)  =  c ' 

— v  =  au,  v(0.2)  =c 

4.  Integrate  to  produce  u(x) 

u  =  a  V ,  u(0)  *=  e  ’ 

-V  =  a  u,  v(0)  *=  c  * 

_  2 

and  calculate  d  =  F  [u(x.)  =  w. 1 

5.  Find  interpolation 

6.  Set  S(a)  =  d  +  and  keep  a  running 

estimate  of  fv(c)  -  Min  [S(a)l 
—  a 

2.  Integrate  to  produce  t'j^(c)  =  P(0.2) 
p  =  a(l  +  p2) p(0)  =  Ac') 


3. 

Print 

c, 

For 

each  c 

1. 

Shift 

fjq(-) 

To  solve  Che  nonlinear  equaCion  for  c’  = 
where  r(,c')  is  knowti  only  on  a  grid  of  points,  we  compute 
the  expressions  =  R  c'  r^^  g2  =  c'  -  c  T.,  and  we 

take  their  difference  D  =  g2-  If  D  =  0,  then  c'  has 

been  found.  Otherwise  we  repeat  Che  procedure  for  each 
discrete  value  c|  ,  until  the  sign  of  is  opposite  to 

that  of  We  then  interpolate  linearly  to  find  the 

quantity  c*  which  makes  D  =  0.  If  the  sign  of  D  does 
not  change,  i.e.  ,  Che  curves  gj^  and  g2  do  not  intersect, 
then  the  corresponding  value  of  a  is  definitely  not  allowed 
Co  be  the  coefficient  for  the  segment  in  question. 

If  the  minimum  cost  large  for  a  given  state 

and  all  remaining  states  may  be  deleted  from  further  consider¬ 
ation.  This  provides  a  saving  in  computing  time,  for  each 
state  to  be  considered  requires  many  calculations.  Of 
course,  the  precaution  must  be  taken  tc  order  the  c's  pro¬ 
perly.  so  that  no  potentially  vital  state  is  lost. 

The  proposed  one-dimensional  scheme  has  been  tested 
numerically.  The  range  of  N  is  1  to  3 .  the  interfaces 
of  the  sections  being  located  at  x  =  0.2,  0.4,  and  0.6. 

The  states  v(b^)  =c  are  1.04955  (0. 00015)  1.13385,  563 
in  all.  This  number  is  reduced  in  stage  2  to  546.  by  the 
use  of  the  above  test.  Four  values  of  the  absorption  coef¬ 
ficient  a  are  allowed:  0.1,  0.3,  0.5,  and  0.7.  There 
are  nine  perfectly  accurate  observations  of  u  per  seg 
menc,  a  total  of  27  data  points.  The  integration  method 
is  Adams -Moulton  with  a  grid  size  of  0.01. 
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From  che  output  of  our  computation,  we  see  that  the 
minimum  value  of  ^3(^)  0.387  x  10  and  occurs  when 

the  input  flux  is  v(0.6)  =  c  «  1.08855  and  the  absorption 
coefficient  for  the  segment  of  the  medium  between  x  =0.4 
and  X  =  0.6  is  taken  to  be  a  =  0.5.  Tliis  is  very  close 
to  the  true  answer.  v(0.6)  =  1.08860,  and  the  value  of  the 
par.^meter  a  is  correct.  The  calculation  tells  us  that 
the  next  state  at  x  =  0.4  will  be  v  =  1.11673.  The 
nearest  grid  point  in  c  is  1.11675.  and  the  cost  f2(l. 11675) 

--Q 

is  indeed  a  minimum,  0.824  x  10  ^ .  The  absorption  coefficient 
for  segment  2  is  0.5.  the  correct  solution.  The  next  state 
at  X  *  0. 2  is  predicted  to  be  1.13377.  The  nearest  dis¬ 
crete  state  is  1.13385,  possessing  a  cost  fj^(l.  13385) 

-9 

=  0.181  X  10  .  The  absorption  coefficient  is  0.5,  again 

the  correct  answer.  The  solutions  at  each  state  are  clearly 
found,  the  minimum  cost  differing  from  the  others  by  at 
least  an  order  of  magnitude.  These  dynamic  programming 
calculations  of  about  20  minutes  have  very  accurately  deter¬ 
mined  the  input,  and  they  have  identified  the  medium. 

Now  we  wish  to  test  the  one— dimensional  method  of 
determining  the  structure  of  the  medium  when  the  measure¬ 
ments  are  few  and  of  limited  accuracy.  We  consider  the 
rod  of  length  0.8  consisting  of  4  segraents  of  equal  length 
0.2.  There  are  again  the  same  563  discrete  states  in  c, 
and  the  same  four  possible  absorption  coefficients  0.1, 

0,3,  0.5  and  0.7.  However,  there  are  only  three  observa¬ 
tions  per  segment  and  these  are  correct  to  only  two 
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significant  figures.  Knov^;ing  the  inputs  to  the  first 
three  stages  N  =  ]  2,  3.  '/e  see  from  the  output  of  the 

calculations  that  the  absorption  coefficients  are  a^  = 

=  a^  =  0.5,  the  correct  solution  in  this  r'egion.  On  the 
other  hand,  we  are  not  able  to  accurately  identify  the 
input  to  a  given  segment  on  the  basis  of  these  calculations, 
because  the  minimum  of  the  function  f  is  broad  and  it  is 
not  centered  at  the  correct  value  of  the  input  c.  For 
stage  N  =  4,  the  value  of  a^  is  determined  to  be  0.3. 
and  incorrect  value.  These  experiments  might  serve  as  a 
warning  to  the  experimental  investigator.  They  shov/  that 
the  processing  of  data  with  a  small  number  of  measurements 
requires  higher  accuracy  than  two  figures,  and  that  if  the 
measurements  are  of  limited  accuracy,,  many  measurements 
should  be  made.  This  trial  consumes  34  minutes  of  IBM  7044 
computing  time.  This  time  of  calculation  could  be  reduced 
greatly  by  streamlining  the  calculations.  No  attejnpt  to 
do  this  was  made  here;  feasibility  was  our  sole  concern. 

For  other  approaches  to  transport  theory,  see  Refs. 


10-14. 
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CHAPTER  SIX 

INVERSE  PROBLEMS  IN  WAVE  PROPAGATION : 
MEASHRFJ^ENTS  OF  TRANSIENTS 


_ INTRODUCTION 

The  wave  equation 

(1)  u  =  . 

c 

is  one  of  the  basic  equations  of  mathematical  physics.  If 
we  suppose  that  the  local  speed  of  propagation  is  a  function 
of  position 

(2)  c  =  c(x,.  y,  z) 

then  the  difficulties  in  studying  the  various  initial  and 
boundary  value  problems  which  arise  are  well  known  [1,  2,  3]. 
In  the  sections  which  follow,  we  wish  to  study  some  of  the 
inverse  problems  which  arise  when  we  atter.ipt  to  determine 
the  properties  of  a  medium,  on  the  basis  of  observations  of 
a  wave  passing  through  the  medium.  Such  problems  are  of 
central  importance  in  such  varied  areas  as  ionospheric  and 
tropospheric  physics,  seismology,  and  electronics.  Some 
early  results  are  due  to  Ambarzumian  [4]  and  Borg  [5]. 


'-TPT* 
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We  shall  discuss  some  one— dimensional  problems.  Our 
basic  technique  is  to  reduce  the  partial  differential  equa¬ 
tion  in  (1)  to  a  system  of  ordinary  differential  equations 
either  by  using  Laplace  transforms  or  by  considering  the 
steady— state  situation.  Then  our  previously  developed 
methodology  is  applicable  For  simplicity  and  specificity 
we  shall  employ  the  nomenclature  associated  with  the  prob¬ 
lem  of  the  vibrating  string.  In  passings  we  note  that  our 
methodology  is  applicable  to  the  diffusion  equation,  to  the 
telegrapher's  equation,  and  to  other  similar  propagation 
equations. 


g, _ THE  WAVE  EQUATION 

Consider  an  inhomogeneous  medium  which  extends  from 
X  *=  0  to  X  =  1,  for  which  the  wave  equation 


(1) 


u 


tt 


c 


is  applicable.  In  this  equation,  the  disturbance  u(x,t) 
is  a  function  of  position  and  time.  Let  us  assume  that  the 
wave  speed  c  satisfies  the  equation 


(2)  c^  =  a  +  bx  , 

where  a  and  b  are  constants,  as  yet  unknown,  which  are 
to  be  determined  on  the  basis  of  experiments. 

Let  the  initial  conditions  be 
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(3)  u(x,  0)  =  g(x)  , 

(4)  * 

Let  the  boundary  conditions  be 

(5)  u(0,  t)  =  0  , 

(6)  Tu^d,  t)  =  f(t)  . 

Eqs.  (1)  —  (6)  may,  for  example,  describe  an  inhomogeneous 
string,  which  is  fixed  at  the  end  x  =  0,  while  a  force 
f(t)  is  applied  perpendicular  to  the  string  at  x  =  1, 
and  T  is  the  known  tension. 

The  disturbance  at  the  end  x  =  1,  u(l,  t^),is  measured 
at  n  instants  of  time.  On  the  basis  of  these  observations, 
we  wish  to  estimate  the  values  of  the  parairieters  a  and  b, 
and  thus  to  deduce  the  inhomogeneity  of  the  medium. 

3 .  LAPLACE  TRANSFORMS 

In  order  to  reduce  the  partial  differential  wave 
equation  to  a  system  of  ordinary  differential  equations, 
we  take  Laplace  transforms  of  both  sides  of  (2.1).  We 
denote  transforms  by  capital  letters,  for  example, 

(1)  “  U(x,s)  =  L{u(x,t)l  . 

Equation  (1)  becomes 

s^U(x,s)  -  su(x,0)  -  u^(x,0)  =  . 


(2) 


Using  (2.2)  —  (2.4),  we  obtain  the  desired  system  of  ordinary 
differential  equations , 

(3)  (a  +  “  s^U(x,s)  -  sg(x)  -  v(x)  , 

in  which  s  is  a  parameter,  s  =  1,  2. ,  . . . ,  N.  The 
boundary  conditions  are 


(4)  U(0,s)  =  0,  TU^(l,s)  =  F(s)  . 

The  unknown  constants  a  and  b  are  to  be  determined 
by  minimizing  the  expression 

N  . 

s=l 


The  quantities  UQ^g(l,s)  are  the  Laplace  transforms  of  the 
experimentally  observed  values  u(l,t^),  while  the  quantities 
U(l,s)  are  the  solutions  of  equations  (3)  and  (4)  .  The 
use  of  Gaussian  quadrature  [6]  leads  to  the  approximate 
formula  for  the  Laplace  transform  of  the  observations, 


(6) 


(l.s) 


0—1 

2  r?  u(l,t.)w. ,  s  =  1,  2,  ...,  N  . 
i=l  ^  ^  ^ 


Similarly,  the  transform  of  the  force  may  be  produced  with 
the  use  of  the  formula 


(7) 


F(s) 


2  rf  ^  f(t. )w. ,  s  =  1,  2,  ...,  N  . 

i=l  1  ^  ^ 


In  these  equations,  r^  are  the  roots  of  the  shifted 
Legendre  polynomial  P*  (x)  =  Pjq(l  -  2x)  and  w^  are 
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the  related  weights.  In  addition,  the  times  of  evaluation 
are 

(8)  t^  =  -log^r^  ,  i  =  1,  2,  N. 

Interpolation  may  be  necessary  in  order  to  have  the  data 
for  these  special  times.  After  the  solution  has  been 
found  for  U(x,s),  the  inverse  transforms  u(x,t)  may  be 
obtained  by  a  numerical  inversion  method  [7]. 


4.  FORMULATION 


Tlie  constants  a  and  b  are  to  be  thought  of  as 
functions  of  x  Wwich  satisfy  the  differential  equations 
a  =0,  b  =0.  The  complete  system  of  equations  for  this 
nonlinear  boundary  value  problem  is 

^xx  a^Ec  ts^U(x,s)  -  sg(x)  -v(x)]  ,  s=l,  2,  N  , 


a 


X 


=  0 


1 


=  0  . 


This  is  equivalent  to  a  system  of  2N  +  2  first  order 
equations,  so  there  must  be  2N  +  2  boundary  conditions. 
These  conditions  are 


(2) 


U(0,s)  =0,  s  -  1,  2,  ...,  N  , 


U^(i,s) 


F(s) 


N  . 


(3) 


T 


,  s—  1,  2,  ..., 
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(4) 

da 

r 

{ ", 

iu. 

S  =  1 

r  N 

(5) 

{ \ 

[U, 

Ob: 


2; 

J 


5.  SOLUTION  VIA  QUASILINEARIZATION 

The  nonlinear  boundary  value  problem  may  be  resolved 
using  the  technique  of  quasilinearization  [8,  9,  10].  In 
each  step  of  the  successive  approximation  method j  we  must 
solve  the  linear  differential  equations 

du’^ 


(1) 


—  = 
dx  s  ^ 


c, 

dx 


,n 


2,t  n 
s  U 

s 


s^U 


.T 

a  +b  X  2„  + 

a+bx  (a+bx)2  s  a+bx 


J  n 

=  0 

dx 


dx 


n 


-  =  0,, 


where  the  superscripts  n  indicate  the  solution  in  the 
th 

n  approximation,  while  the  un— superscripted  variables 

S  tl 

belong  to  the  (n-1)  approximation.  The  boundary  condi¬ 
tions  are 


(2) 


U^(0)  =  0  , 


w"(i)  = 


s) 


(3) 
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(4)  ^  f  [Uobsd.'S)  -  U^CDI^}  =  0  . 

'la  s-1 

(5)  7^5  t  t"0bs(l'=)  -‘'"(1))'}  =  °  • 

s=l 

th 

We  represent  the  solution  in  the  n*"  approximation  as 

a  linear  combination  of  a  particular  vector  solution  and 

N  +  2  homogeneous  vector  solutions.  If  we  let  the  column 

th 

vector  X(x)  represent  the  solution  in  the  n^  approximation 

where  the  components  of  X  are  •  •  •  >  uJJ,  W^,  W^,  .  . 

a’^,  b’^),  and  if  we  let  the  column  vectors  P(x).  H^(x), 

2  N+2 

H  (x),  H‘  (x)  represent  the  particular  and  homogeneous 

solutions,  then  we  may  write 

N+2  . 

(6)  X(x)  =  P(x)  +  2  H^(x)y.  . 

i=l  ^ 

Since  the  system  of  differential  equations  is  of  order 
2N  +  2,  and  since  N  initial  conditions  are  prescribed, 
there  are  N+2  missing  ini tial  conditions,  represented 
by  the  N+2  dimensional  column  vector  Y, 

(7)  Y  =  (Wi||(0),  W^(0),  wj}(0),  a"(0),  b^CO))'*^  . 

The  particul  r  and  homogeneous  solutions  are  compu¬ 
tationally  produced.  In  terms  of  these,  the  boundary  con¬ 
ditions  (2)  -  (5)  require  the  solution  of  system  of  N+2 
linear  algebraic  equations. 
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(8)  A  Y  =  B  , 

where  the  elements  of  matrix  A  are 


A. .  =  hi , , (1)  , 

ij  N+1^  ^  ’ 


i  =  1,  1,  .  .  .  ,  N  , 


(9) 


N 


=  s  hJ(1)  (1)  ,  i  =  N  +  1,  N  +  2  , 

s=l  ®  ® 


j  =1,  1,  .  .  .  ,  N,  N  +  1,  N  +  2 


and  where  the  components  of  vector  B  are 


B. 


^  -  P  ,  t 


i  =  1,  1,  . . .  ,  N 


N 


=  2  [Ugjj^d.s)  -  PdD’  H’dD,  i  =  N  +  1,  N  +  2 


S=1 


The  method  is  applied  iteratively  for  a  fixed  number  of 
stages about  five,  or  it  may  be  terminated  when  the  '’oproxi- 
mations  converge  or  diverge.  The  displacement  function  u(x,t) 
may  be  obtained  from  its  transform  by  a  numerical  inversion 
method  of  Bellman,  et  al.  [7]. 


6.  EXAMPLE  1  -  HOMOGENEOUS  MEDIUM,  STEP  FUNCTION  FORGE 
In  this  and  the  following  example,  we  consider  a 
homogeneous  medium  and  make  use  of  the  analytical  solution. 
In  Example  3,  we  consider  the  more  general  problem  of  an 
inhomogeneous  medium  characterized  by  two  unknown  constants. 

Consider  the  case  in  which  we  have  a  constant  speed 
c  which  is  given  by  the  equation 
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(1) 


=  1  . 


The  value  of  T  is  unity,  the  input  f(t)  is  the  Heaviside 
unit  step  function,  H(t),  and  the  initial  conditions  are 
g(x)  =  v(x)  =  0  .  The  wave  equation  for  the  function  U(x,s) 
is 


(2) 


U 


XX 


=  --2  U(x,s) 


The  solution  which  satisfies  (2) 


conditions  U(0,s)  =  0,  TU  (l,s) 


as  well  as  the  boundary 
*=  F(s)  is 


(3) 

I 


U(x.s)  =  £.  .t  . 

T  s  cosh  ^ 

Noting  that  the  Laplace  transform  of  the  force  is 


(4)  F(s)  =  l{h(c)}  =  i  , 

we  may  explicitly  evaluate  U  at  the  boundary  x  =  1,  and  we 
obtain  the  values 

(5)  U(l,s)  =  ^  tanh  —  =  tanh  s  . 

s“  ^  s 


The  inverse  transfom  , 

(6)  u(l,t)  =  ^  tanh  |]-  , 


is  shown  in  Fig.  1. 

We  decide  to  use  a  seven  point  quadrature,  so  that 
N  «  7.  Making  use  of  the  known  solution,  we  "produce"  the 
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observations  at  the  specified  times  t^,  which  are  listed 
in  Table  1. 


0  2  4  6 

c  c  c 


Fig.  1.  The  analytical  solution  of  the  wave  equation 
at  X  =  1,  with  a  step  function  input: 

u(l,t)  =  L  ^  tanh  . 


TABLE  1 

SEVEN  OBSERVATIONS  FOR  EXAMPLE  1 


t. 

1 


3.671195 
2.046127 
1. 213762 
0.693147 
0.352509 
0.138382 
0.025775 


u(l, t^) 


0.328805 
1.953873 
1. 213762 
0.693147 
0.352509 
0.138382 
0.025775 
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The  approximate  transforms  ^Qi^g  computed  using 

the  formula  from  Gaussian  quadrature.  In  Table  2,  these 
quantities  are  coiripared  with  the  exact  transforms  using 
the  analytical  solution.  The  transforms  of  the  input,  F(s), 
are  computed  with  the  aid  of  the  approximate  formula.  The 
approximate  transforms,  UQ|^g(l,s)  and  F(s),  are  used  in 
the  calculations  because  in  the  general  case,  the  analytical 
transfoms  will  be  unobtainable. 

TABLE  2 

THE  LAPLACE  TRANSFORMS  EXAMPLE  1 


s 

Approximate 

UobsO.s) 

Exact 

UobsO.s) 

1 

0. 759442 

0. 761594 

2 

0. 242907 

0. 241007 

3 

0.110753 

0.110561 

4 

0. 0624686 

0.064580 

5 

0.0399963 

0.0399964 

6 

0.0277773 

0.0277774 

7 

0.0204081 

0.0204081 

There  are  only  2N  +  1  variables  in  this  example,  sc 
that  when  N  =  7,  v;e  have  a  solution  of  dimension  15.  During 
each  stage  of  the  calculations,  we  have  to  produce  a  particular 
solution  and  N  +  1  =  8  homogeneous  solutions,  i.e.,  Ijr'^  =  135 
differential  equations  must  be  integrated.  For  the  initial 
conditions  on  P,  we  choose  P(0)  identically  zero.  We  also 


,fi_ 


lull' 
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choose  for  H-^(O),  the  unit  vector  which  has  all  of  its 
components  zero  ey.cept  the  (N+j)^'*^,  which  is  unity.  Any 
lineal'  combination  cf  these  P  and  H  vectors  identically 
satisfies  the  conditions  U  (0)  =0;  3=1,  2,  . . . ,  N. 

For  the  remaining  boundary  conditions,  we  must  invert  the 
8x'  matrix  A. 

As  a  first  check  case,  we  try  an  initial  approximation 

a^  =  1  which  is  the  correct  value  of  a.  estimate  the 

—3 

in’ tial  slopes  to  be  W,(0)  =  10  .  The  initial  approximation 

is  generated  by  integrating  the  nonlinear  equations  (31) 
with  this  set  of  estimates,  as  initial  conditions.  In 
three  iterations  we  obtain  better  estimates  of  the  slopes 
W  (0),  but  the  value  of  a  has  drifted  to  1.00023.  This 
value  may  be  used  as  a  comparison  for  other  trials.  The 
results  of  three  experiments  are  shown  in  the  following 
table.  The  initial  approximation  a^  is  listed  in  Table  3, 
followed  by  the  successive  approximations  n  =  1,  2,  .  •  .  , 

for  each  of  the  three  trials. 
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TABLE  3 

SUCCESSIVE  APPROXIMVriONS  OF  THE  VELOCITY  a  EXAMPLE  1 


Approximation 

Run  1 

Run  2 

Run  3 

0 

1.  2 

1.5 

0.5 

1 

1.00991 

0.46752 

0.50922 

2 

1.00186 

0.48284 

0.80612 

3 

1.00018 

0.67047 

0.97736 

4 

0.89366 

1.00049 

5 

0.99110 

1.00022 

6 

— 

1.00041 

In  Run  2,  U 

and  U,  at 

X  =  1.0  are 

consistent 

to  two  significant 

figures  with 

the  conditions 

.  In  Run  3 

U  is  in  agreemenc  with  the  observations  to  four  places, 
and  U  agrees  wit^  the  conditions  to  five  figures.  Recall 
that  the  conditions  on  U  are  supposed  to  be  exacts  and 
those  on  the  U(l,s)  are  of  a  least  squares  nature,  which 
may  help  to  explain  why  U  is  in  better  agreement  than 
U  for  Run  3. 

7.  EXAMPLE  2  -  HOMOGENEOUS  MEDIUM,  DELTA^FUNCTION  FORCE 
In  Example  2,  we  have  a  homogeneous  medium  and  z«  ro 
initial  conditions.  The  boundary  conditions  are  again 
u(0,t)  -  0,  u  (l,t)  -  f(t),  where  now  the  input  is  f(t)  «  6(t), 
the  delta  function.  The  Laplace  transform  of  the  delta 
function  is  F(s)  *  1.  The  analytical  solution  for  x  «  1 


m- 


'-'ilrt.llHl" 


_1  O  - 


(1)  u(l,t)  =  L  ^  ^  tanh  |}  . 

This  function  is  sketched  in  Fig.  2,  for  the  case  c  = 
T  =  1. 


u(1,t) 


Fig.  2.  The  analytical  solution  of  the  wave  equation 
at  X  =  1,  with  a  delta  function  input: 

u(l,t)  =  L  ^  tanh  s 

L  S  - 

We  again  take  N  =  7.  The  observations  are 

(1)  u(l,t^)  =  1  ,  for  i  =  1,  2,  5  , 

=  -1  ,  for  i  =  6,  7  . 

The  transforms  of  the  observations,  UQ^g(l,s),  are  computed 
using  the  quadrature  approximation.  A  comparison  of  these 
values  against  the  exact  transforms  using  (1)  is  given  in 
Table  4. 
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TABLE  4 

THE  LAPLACE  TRANSFORMS  UQ^g(l,s)  for  EXAMPLE  2 


s  Approximate  Exact  UQ|^g(l,s) 


1 

2 

3 

4 

5 

6 
7 


0.59080964 
0.46055756 
0.32857798 
0. 24939415 
0. 19992192 
0.16665658 
0.14285584 


0. 76159415 
0.48201379 
0.33168492 
0. 24983232 
0. 19998184 
0. 16666462 
0.14285690 


All  initial  approximations  in  the  following  experiments 
are  orcduced  by  integrating  the  nonlinear  equations  with  a 
te  set  of  estimated  initial  conditions.  The  check 
case  with  initial  approximation  a*^  =  1,  a  correct  guess, 
results  n  a  convergence  to  the  vvrrong  value  a  =  0.9.  With 
a^  =  0.5,  the  'Estimate  is  again  0.9.  With  a^  =  1.5,  the 
value  -0.8  is  obtained.  It  is  suspected  that  the  dis¬ 
continuous  nature  of  the  function  u(l,t)  is  the  cause  of 
the  difficulty  in  determining  a.  A  more  reas  mable  formula¬ 
tion  of  the  problem  should  include  damping  terms  to  over¬ 
come  this  obstacle.  In  spite  of  the  poor  estimates  of  a 
in  the  first  two  trials,  the  final  approximations  are 
quite  close  to  the  exact  observations  UQ|^g(l,s),  rather 
than  the  approximate,  and  the  conditions  U  (l,s)  =  F(s)/T 
are  met,  to  within  0.00l7o. 
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8 .  EXAMPLE  3  -  INHOMOGENEOUS  INDIUM  Wira_D^LT43FUNCTI0N 
INPUT 

As  an  example  of  the  inverse  problem  For  an  inhomo¬ 
geneous  medium  as  originally  posed^  consider  the  case  in 
which  the  wave  velocity  is  indeed  given  by  the  equation 

(1)  c^  =  a  +  bx  , 


where  a  =  1  and  b  =0.5.  We  again  set  the  initial  condi¬ 
tions  u(x,0)  =  Uj.(x^0)  =  0,  and  the  tension  T  =  1.  We 
exert  a  delta— function  force,  f(t)  =  &(t),  on  the  boundary 
X  =  1,  and  we  observe  the  displacement  u(l,t)  as  a  function 
of  time.  Laplace  transforms  Uq^^^CI^s)  are  computed.  The 
parameters  a  and  b  are  determined  for  best  agreement 
with  these  transforms  of  observations. 

In  this  study,  the  experimenter  obtains  his  data  with 
the  use  of  the  digital  computer,  rather  than  by  the  actual 
performance  of  laboratory  experiments.  The  exact  solution 
for  this  inhomogeneous  wave  problem  is  not  readily  avail¬ 
able  analytically.  We  must  produce  the  solution  computa¬ 
tionally,  by  solving  the  wave  equation  with  its  boundary 
conditions.  Since  we  prefer  to  deal  with  the  ordinary  dif¬ 
ferential  equation  for  the  function  U  (x) ,  we  solve  the 
approximately  equivalent  linear  two— point  boundary  value 
problem 


sVx,s)  , 

a+bx 


(2) 


135 


(3)  U(0,s)  =  0  , 

(4)  U^(l,s)  »  1  , 

for  s  *  2^  N  .  We  produce  a  particular  solution 

and  N  independent  homogeneous  solutions  which,  when  com¬ 
bined  to  satisfy  conditions  (3)  and  (4),  also  produce  the 
data  of  Table  5.  These  are  the  "observations". 

TABLE  5 

THE  LAPLACE  TRAN 'FORMS  U^^gCl^s)  FOR  EXAMPLE  3 


s 

1 

.811967 

2 

.551174 

3 

.390695 

4 

. 297835 

5 

.239837 

6 

. 200613 

7 

. 172392 

These  quantities  inverted  numerically 

to  produce  the  function  u(l,t^)  =  L  ^  ^  '^ich 

are  the  obser\'ations  of  the  disturbance  in  the  space  of 
X  and  t.  However,  we  need  the  set  of  transforms  for 
use  in  determining  the  parameters  a  and  b,  and  so  we 
decide  to  utilize  these  numbers  directly,  as  they  appear 
in  the  table. 
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Two  series  of  experiments  are  performed  (see  Tables  6 
and  7).  In  one.,  the  observations  are  given  correct  to  6 
significant  figures,  and  the  initial  approximations  are 
varied.  The  true  values  of  the  unknown  parameters  are 
a  =  1. 0  and  b  =  0.5. 


TABLE  6 


SERIES  I  RESULTS  FOR  EXAMPLE  3 
Observations  are  correct  to  six  significant  figures. 


a“=.9 

b®  =  .6 

W^(0)  correct  to 

Run  1 

1 

a^  =  .9998 

b^  =  .5002 

s 

1  figure 

a°  =  1.  2 

b°  =  .3 

W^(0)  correct  to 

Run  2 

a^  =  .9998 

b^  =  .5002 

s 

1  figure 

a^  =*  1.  2 

b®  =  .3 

W°(0)  =  .05 

Run  3 

C 

c 

s 

a^  =  .9996 

b^  =  .50005 

TABLE  7 

SERIES  II  RESULTS  FOR  EXAMPLE  3 
Observation'^  are  in  error  by  specified  amounts 
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th. 


In  the  series  I  v;xperiments^  with  accurate  observations, 
rapid  convergence  to  the  correct  values  of  the  parameters 
occurs.  The  higher  approximations  of  the  initial  slopes 
W  (0)  are  not  listed,  but  these  are  considerably  improved 
values . 

In  the  series  II  experiments,  noisy  observations  are 

used.  For  example  in  Run  4,  the  observations  ^Obs^^^®^ 

are  in  error  by  the  relative  amounts  +1%,  -1%,  +1%,  .  .  .  ,  +17o 

for  s  =  1,  2,  3,  ...,  7  respectively.  The  relative  errors 

3  3 

in  the  third  approximations  a  =  .9872,  b  =  .5182,  are  1.3% 
and  3.67o  respectively.  The  results  of  this  trial  may  be 
contrasted  with  the  final  approximations  of  Run  2.  In  Run  2, 
observations  which  are  correct  to  six  significant  figures 
produce  values  of  the  parameters  which  are  correct  to  less 
than  0.04%.  Run  4  may  also  be  compared  with  Run  6,  in  which 
case  we  are  comparing  the  effect  of  1%  errors  against  5% 
errors.  The  results  of  Run  6  involve  errors  of  -6%  in  the 
value  of  a,  and  +187.  in  b. 

The  time  required  for  these  calculations  is  about 
one— half  minute  per  iteration,  with  the  IBM  7044.  Each 
iteration  includes  the  integration  of  (N+3)(2N+2)  =  10  x  16 
=  160  differential  equations,  and  the  inversion  of  a  9x9 
matrix.  The  FORTRAN  programs  for  all  of  the  cases  treated 
are  to  be  found  in  Appendix  F. 
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9.  DISCUSSION 

The  methods  presented  here  are  of  practical  use  in 
identifying  a  system  described  by  a  wave  equation  or  by 
linear  differential  equations  or  by  a  weighting  function 
[11]. 
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CHAPTER  SEVEN 

INVERSE  PROBLEMS  IN  WAVE  PROPACATTON ; 
MEASUREMENTS  OF  STEADY  STATES 


1.  INTRODUCTION 

Consider  the  propagation  of  waves  in  a  plane  parallel 
stratified  medium  [1—5]  extending  from  x  =  0  to  x  * 
with  index  of  refraction  n(x)  varying  continuously  througli- 
out  the  slab.  The  slab  is  bounded  by  a  vacuuni  to  the  left 
(nQ  1)  and  a  homogeneous  medium  with  index  of  refraction 
n^  to  the  right,  as  shown  in  Fig.  1.  We  assume  a  lossless 
dielectric  medium  in  which  n(x)  is  independent  of  frequency. 


Incident  wave 


Reflected  wave 


n(x) 


n 


1 


x=b 


Fig.  1.  The  physical  situation 
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The  wave  equation  is 

(1)  k2(,x)u^^  =  , 

where  k,  is  the  wave  number.  The  wave  number  is  related 
to  the  inder  of  refraction  by  the  formula 

(2)  k(x)  =  ^  n(x)  , 

where  Cq  is  the  speed  of  light  in  a  vacuum,  which  we 
normalize  to  unity,  and  fj)  is  the  angular  frequency. 
are  interested  in  solutions  of  the  form 

(3)  u\,x,t)  =  e“^^’^u(x)  , 

corresponding  to  the  steady-state  case  where  the  transients 
have  died  down.  The  function  u(x)  satisfies  the  o^rdinary 
differential  equation. 

(4)  u"(x)  +  a!2k2(x)u(x)  =  0  . 

We  shall  often  neglect  the  function  e  in  all  of  the 

solutions,  and  speak  of  the  functions  u(x)  as  waves. 

We  conduct  a  series  of  experiments  in  which  verves 

of  different  frequencies  arc  normally  incident  in  the 

medium  from  the  left,  i.e.,  the  incident  wave  is  e  ^  0  i  , 
i  k.  X 

or  simply  e  0  .  The  reflected  waves  at  each  frequency 

are  observed.  We  v/ish  to  determine,  the  index  of  refraction 
n(x)  throughout  the  slab  on  the  basis  of  thcae  measurements. 
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^  SOME  FM£AMENTAL  EQUATIONS  [1,  2] 

Consider  the  case  of  two  adjacent  homogeneous  media, 
as  illustrated  in  Fig.  2. 


(a) 

Incident 


(b) 


Transnittea 


Reflected 


x=0 


Fig.  2.  Waves  at  an  interface. 


A  plane  wave  of  frequency  tu  traveling  in  mediuni  (a)  is 
incident  at  the  interface  x  =  0.  Let  the  wave  numbers 
of  medium  (a)  and  medium  (b)  be  k  and  k,  respectively. 

ik  X  — LUUt 

The  incident  wave  is  e  e  and  the  reflected  wave  is 

-ik^x  — i'x't 
re  e  where 


CD 


k  -  k, 

^  -  3.  T) 

a  b 


ik.  X  -i'l’t 

The  transmitted  wave  is  te  e  ,  where 


(2) 


2k 


t  = 


a 
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Now  consider  the  case  of  two  interfaces  between  three 
homogeneous  media,  (a)^  (b) ,  and  (c).  The  interfaces  are 
separated  by  a  distance  A. 


(a) 

Incident 


T. 


(b) 


(c) 


x=0 


x=A 


Fig.  3.  Waves  at  two  interfaces. 

ik  X  -i  rt 

The  incident  wave  is  again  e  e  .  The  wave  which  is 
transmitted  through  x  =  0,  reflected  at  x  =  A,  and  trans- 

-ik  X  -i'i^t 

o 

mitted  again  through  x  =  0  is  ve  e  ,  where 


(3) 


''  "  k~  T  K 


kfe-kc  2iV' 


o(A) 


y 


and  o(A)  includes  the  terms  proportional  to  the  second 

and  higher  powers  of  A,  This  equation  shows  how  v 

depends  on  frequency  by  means  of  the  exponential  facL.or 
2ik^A  2iin^A 


e  =  e 


li.  INVAPIANT  IMBEDDING  AND  THE  REFLECTION  COEFFICIENT  [  5  ] 
Now  we  turn  our  attention  to  the  reflection  coef¬ 
ficient  r  a.s  a  function  of  thickness  of  the  medium.  We 
assume  that  the  slab  is  inhomogeneous  and  that  it  extends 
from  X  =  z  to  x  =  b.  The  right  boundary  x  =  b  is  to 


-145- 


be  considered  fixed,  while  the  left  boundary  x  =  z  is 
variable,  as  shown  in  Fig.  4.  The  incident  wave  is 
^ik(z_)  (x— z)  ^  deleting  the  time  dependent  factor  e 
where  k(z_)  =  k(z-O)  is  the  wave  number  of  the  homogeneous 
medium  to  the  left,  and  where  the  expression  e  ^  ' 

is  used  rather  than  e  ^  in  order  to  normalize  the 

incoming  intensity  at  x  =  z. 


k(z  +A) 


k(z_) 

i 

k(x) 

1 - 

0  z  z-fA  b 


Fig.  4.  An  inhomogeneous  medium  of  thickness  b— z. 

The  reflected  wave  is  r(z)e~^^^^— ^ 

Using  the  technique  of  invariant  imbedding,  we  relate 
the  reflection  coefficient  for  a  slab  extending  from  z 
to  b  to  that  for  a  slab  extending  from  z  +  A  to  b. 

The  reflected  wave  may  be  expressed,  to  terms  of  order 
zero  and  one  in  A,  as  arising  from  three  processes: 

(a)  immediate  reflection  at  z  ; 

(b)  transmission  through  the  interface  at  x  =  z, 
reflection  at  z  +  A  from  the  slab  (z  +  A,b), 
and  transmission  through  z  ; 
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(c)  transmission  through  the  interface  at  z  =  z, 

reflection  at  z  +  A  from  the  slab  (z  +  A,  b), 
reflection  at  z,  reflection  at  z  +  A,  and 
finally  transmission  through  z. 

These  three  cases  are  represented  in  Fig.  5. 


Incident 


U, 


Incident 


U. 


z+A 

Case  (a) 


Incident 


z  Z+A 

Case  (b) 


U, 


z  Z+A 

Case  (c) 


(1) 

where 

(2) 


Fig.  5.  Three  processes  in  a  stratified  slab. 

The  wave  which  is  reflected  from  the  slab  (z,b)  is 

\  — ik(z  )(x— z)  r  1  — ik(z  )(x— z) 

r(z)e  '  =  [r^+r,+r  +o(A)]e  ^  ^  '  , 

a  D  C 


k(z_)  -  k(z_+A) 
k(z_)  +  k(z_+A) 


2k(z  ) 


r, 


b  k(z  )  +  k(z  +A) 


•  r(z+A)e2i'^(^-+*) 


2k(z_+A) 

VX'z  +A)  +  'k(z  T 


(3) 
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(4> 


2k(z„) 

~  lc(z_)  T~lc(^_4S7 

k(z_+A)  -  k(z_) 
k(^_+A)  +  k(z_) 


2k(^-t^) 

k(z^-h^)  +  kCz_)  ^ 

and  k(z_+A)  =  k(z+z^-0)  is  the  wave  number  in  the  region 
immediately  to  the  left  of  the  interface  z+A.  Simplifying 
to  terms  of  order  A,  we  have 


k(z  )— k(z  +A)  4k(z  )k(z_+A) 

r(z)  - - +  - ^  [14-2ik(z  +A)A]r(z+A) 

[k(z_)+k(z_+A)  ]  [k(z_)+k(z_+A)  ]  ^ 

(5)  4k(z  )k(z  +A)  [k(z  )-k(z  +A)]  « 

- = - z -  .  - = - T -  [l+4ik(z  -K^)A]r^(z+A) 

[k(z_)+k(z_+A)  ]  ^  [k(z_)4-k(z_+A)  ] 

+  0(A)  . 


Making  use  of  the  formula  for  the  derivative  of  r^, 

(6)  ^  =  lim  , 

^  A-0  * 


we  obtain  the  Riccati  equation 


(7) 


dr  _  k' 

"  2k  ~ 


2ikr  - 


k’ 

2k 


The  "initial"  condition  reduces  to  the  formula  for  an  interface 
between  two  media 


r(b) 


k(b-0)-k^ 
k(b-0)+kj^^  • 


(8) 
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In  terms  of  the  index  of  refraction,  Eqs.  (7)  and  (8)  are 


(9) 


dr  _  n' 
^  2n 


2inxr  -  —  r^ 

Zli 


where  n 

(10) 


n(z)  ,  and 


r(b) 


n(b)-n^ 

n(b)+n^ 


The  reflection  coefficient  for  anv  inhomogeneous  slab  in 
which  n  varies  as  a  function  of  x  may  be  found  by  a 
simple  (numerical)  integration  of  (9)  with  the  given  initial 
condition  (10).  The  integration  is  carried  out  from  the 
right  boundary  z  =  b  to  the  left  boundary  z  =  0. 


4.  PRODUCTION  OF  OBSERVATIONS 


In  place  of  performing  laboratory  experiments  for 
obtaining  reflection  data  [6,  7],  we  produce  the  observations 
computationally,  for  N  different  frequencies.  The  incident 

i'jj.nQX  — iuu.nQX 

waves  are  e  ^  ,  and  the  reflected  waves  are  r.(0)e  ^ 

J 

j  =1,  2,  . . . .  N.  We  solve  the  initial  value  problems 


(1) 

(2) 


dr .  I 

=  I!_ 

dz  2n 


2inyu.r , 
J  J 


n 

2u 


nvb)-n, 

r  .  (b)  = - = 

j  n(b)+n2^ 


,  b  >  z  >  0  , 


for  the  desired  coefficients  r.(0)  . 

J 


Since  r^  is  a  complex  reflection  coefficient,  v/e 


let 
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(3) 

rj  =R. 

where  R . 

and  S . 
J 

J 

equations 

dR. 


S  +  2n..S.  -  (r2 


(4) 


dS. 

dz 


2n,„.R.-  ^  R.S. 


(5) 


n(b)-n^ 

s.(b)=o. 


for  j  =1,  2,  .  .  .  ,  N  . 

For  the  numerical  experiment,  we  take 

(6)  n(x)  =  a^  +  a2(x-l)^ 

where  a^  =1,  ^2  ~  also  choose 

b  =  1  , 


N 


(7) 


UJi 


uu, 


(1). 


=  3  , 

“  2tt  , 
«  4tt  , 

■=  6r  . 


We  assvune  that  n^^  =  n(b) ,  so  that  ~ 

We  have  chosen  to  normalize  the  speed. 


(8) 


c„  =  3  X  10l°cm/sec  =  unit 

u  one  time  unit 
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We  have  chosen 

(9)  b  =  1  length  unit 
and  we  set 

b  =  3  cm 

(10) 

=  1  X— band  microwave  wave  length  • 


Then 


(11)  1  length  unit  =  3  cm 
and 

—1  n 

(12)  1  time  unit  =  10  sec. 


To  produce  and  ,  the  real  and  imaginary  parts 

of  the  reflection  coefficients,  for  incident  waves  of  fre¬ 


quencies  10,  20,  and  30  kilo  megacycles,  we  integrate 
Eqs.  (4y  -th  initial  conditions  ~ 

for  j  =  1,  2,  3.  We  use  a  step  length  of  —.00'.  end  the 


Adams-Moulton  integration  scheme.  The  values  Rj(0),  and 
Sj(0)  are  the  "observed"  reflection  coefficltuts.  These 


R^(0)  =  .13217783  x  10"^,  S^(0)  *  .14843017  x  10"^, 

(13)  R2(0)  =  .32313148  x  10'^,  5^(0)  =  . 95414 70A  x  10~2, 

R3(0)  =  .38854984  x  10“^,  83(0)  =  .58976205  x  10~2. 
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5.  TERMINATION  OF  REFRACTIVE  INDEX 

We  consider  the  inhomogeneous  slab  extending  from 
X  =  0  to  X  =  I.  We  are  given  observations  of  the  real 
and  imaginary  parts  of  the  reflection  coefficients,  ^ 
Bi  =  Si,  where 

A^  =  .132178  X  10"^,  =  .148430  x  10“^, 

(1)  A2  =  .323131  X  10“^,  B2  =  .954147  x  lO'^, 

A^  =-.388550  X  10“^,  =  .589762  x  10“^, 

which  correspond  to  frequencies  =  10,  0^2  =  20,  and 
fjLt^  =  30  kilomegacycles  [6,  7].  We  seek  to  determine  the 
values  of  the  constants  a  and  b  in  the  equation  for 
the  index  of  refraction  as  a  function  of  position, 

(2)  n(x)  =  a  4-  b(x— 1)^, 

in  such  a  manner  as  to  minimize  the  expression 


3 

(3)  S  =  Z  ((A,  -  R.(0))2  +  (B.  -  S.(0))2)  . 

i=l  ^  ^  ^  ^ 

The  form  S  is  the  sum  of  squares  of  deviations  between  the 
solution  of  Eqs.  (4.4)  and  (4.5),  and  the  (perhaps  inaccurate) 
observations  (1). 

The  system  of  nonlinear  equations  is 
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(4) 


where 

(5) 
and 

(6) 


3-  ._2n..R.  -fR.S., 


j  =  1.  2. 


a'  =  0  , 
b'  =  0  , 


n  =  a  +  b(x-l)^  j 


n'  =  2b(x-l)  . 


We  obtain  a  system  of  linear  differential  equations 
by  applying  quasilinearization  [8  ].  In  the  following  linear 
equations.,  so  as  not  to  clutter  the  equations  with  super¬ 
scripts  indicating  the  approximations  and  subscripts  indicat¬ 
ing  the  components,  we  v/rite  the  variables  of  the  current 
approximation  as  R,  S,  a,  b,  (also  n  and  n'). 
Corresponding  quantities  in  the  previous  (k— 1)  approxi¬ 
mation  are  p,  o,  a,  p  (and  ri  and  r').  The  linear 
equations  obtained  via  quasilinearization  are 


R’  =  ^  +  2Ti(«a  -  (P^-a^) 

+  (P  -P)(-  ^P)  +  (S-a)(2r)a'  + 

+  +  2.0  |^(^)] 

+  (b-p)[-2  IpC^)  +  2.0  -  -2(P^-o2)  , 


(7) 
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n  ' 

S '  =  -  2iiu)p  -  ~Po 

+  (R-p)(-2T!'n  -  +  (S-o)(-  ^P) 

(8)  ,  ,  I 

+  (a-c:)(-2,.p|^-p4-(^)) 

+  (1^P)[-2.p|3_p^(3:)] 

(9)  a'  =  0  , 

(10)  b'  =  0  . 


In  these  equations,  we  must  make  the  substitutions 


(11) 


111  -  1 

hCL  ~ 


^(V) 


Tl' 

i 

ri' 


.In  s  (x— 1)^  -n—cnL!.) 


2^'  - 


For  each  iteration  of  the  successive  approximation 
scheme,  we  produce  numerically  a  particular  vector  solu¬ 
tion  p(x)  and  two  homogeneous  vector  solutions  h^(x) 
and  h  (x)  of  the  system  (7)  —  (10).  We  set  the  components 

of  the  reflection  coefficients  equal  to  a  linear  combina— 

1  2 

tion  of  the  components  of  p(x),  h  (x)  ,  and  h  (x) , 


(12)... 


Rj  =  s  ^  ,  j  =  1,  2,  3 

Sj  =  Pj+3(x)  +  a  b  .  j  =  1.  2,  3 

a^  =  Py(x)  +  a  hy(x)  +  b  hy(x)  •=  a  , 
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(12)  =  Pg(K)  -f  a  hg(x)  +  b  h|(x)  =  b  . 

The  multipliers  a  and  b  are  ^iven  by  the  equations 

3 

^  {.f  +  (Bi  -  s^(0))^j}  =  0  , 

(13)  3 

~  +  (Bi  -  S^O))^)}  =  0  • 


After  making  the  substitutions  (12),  we  obtain  the  values 
of  a  and  b  in  the  current  approximation. 


6.  NUMERICAL  EXPERIiiENTS 

Using  the  given  data,  and  the  initial  approximation 

2 

for  refractive  index  n(x)  «=  1.  2  +  0.  2(x-l)  ,  we  determine 

2 

the  constants  a  and  b  in  the  function  n(x)  “ad-  b(x— 1) 

6 

t:.  one  part  in  10  after  five  iterations  of  q\.asilineariza- 
tion.  The  successive  approximations  of  the  constants  a 
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and  b  are  listed  in  Table  1,  labelled  Trial  1,  and  the 
arproximations  of  the  index  of  refraction  are  shown  in 
Fig.  6. 

For  the  next  experiment,  we  use  data  which  are  in 
error  by  +27o: 

=  .134822  X  10~2,  =  .145461  x  10“^  , 

(1)  A2  =  .316668  X  10“^,  =  .935364  x  10~^  , 

A3  =  -.396321  X  10“^,  B3  =  .601557  x  10“^  . 

After  five  iterations,  the  initial  approximation  being 
the  same  as  before,  the  constant  a  is  found  correct  to 
within  0.3%,  and  b  is  correct  to  about  3%.  On  the 
other  hand,  the  error  in  n(x)  ranges  from  0.3%  at  x  *  1 
to  only  0. 7%  at  x  =  0.  The  results  are  given  in  Table  1. 

For  each  trial,  the  step  length  of  integration  is 
—.0025,  and  the  integration  scheme  is  Adans-Moulton.  The 
time  of  calculations  is  2  min.  12  sec.  on  the  7044. 

The  FORTRAN  programs  are  found  in  Appendix  G. 


SUCCESSIVE  APPROXIMATIONS  OF  THE  PARAMETERS 
a  AND  b  IN  THE  EQUATION  FOR  REFRACTIVE  INDEX 
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’U  DISCUSSION 

Inverse  problems  in  wave  propagation j  as  well  as  in 
particle  processes,  can  be  computationally  solved.  The  wave 
equation,  being  a  partial  differential  equ'  tion,  is  replaced 
by  a  system  of  ordinary  differential  equations  in  one  of  sev¬ 
eral  ways.  In  the  previous  chapter,  we  used  Laplace  transform 
methods.  In  this  chapter,  we  assumed  a  solution  of  the  form 
u(x,t)  *=  u(x)  e  and  we  obtained  ordinary  differential 

equations  for  u(x) .  Another  Fourier  decomposition  might  be 

N 

u(x,t)  =  2  a  (x)  sin  nt  , 

which  results  in  second  order  ordinary  differential  equations 

for  the  functions  a^(x).  Another  system  of  ordinary  dif- 

n 

ferential  equations  results  when  the  space  derivative  is  re¬ 
placed  by  a  finite  difference, 

1  u,, (t)—  2u(t)+u  i(t) 

••  ~  1  n+1'  ^  n'  n— 1' 

Un\C)  -  ^ 


These  offer  interesting  possibilities  for  further  studies. 
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CHAPTER  EIGHT 
DISCUSSION 

Inverse  problems  have  stimulated  much  interest  in  re¬ 
cent  years,  since  the  advent  of  modern  electronic  computers. 
The  estimation  of  the  structure  of  a  complicated  system, 
formerly  unattainable  by  analytic  means  or  by  the  use  of  a 
desk  calculator,  is  now  possible. 

The  determination  of  orbits  from  observations,  is  a 
kind  of  inverse  problem  in  celestial  mechanics,  going  back 
to  Newton,  Laplace,  Gauss  and  others  [1,2].  Ambarzumian 
[3],  Borg  [4],  and  others  [5—8]  considered  the  problem  of 
determining  a  linear  differential  equation  of  Sturm- Liouvi lie 
type  given  a  spectrum  of  eigenvalues.  The  estimation  of 
scattering  potentials  from  the  phase  shift  has  been  the  con¬ 
cern  of  investigators  in  quantum  theory  [9—17] .  Many  inverse 
problems  have  been  considered  [18—45],  especially  in  the 
fields  of  astrophysics,  geophysics  and  geology.  Some  com¬ 
putational  results  have  already  been  obtained  for  the  struc¬ 
ture  of  the  earth’s  atmosphere  and  crust  using  actual  geo¬ 
physical  data  [19.  20,  36].  Some  inverse  problems  fall 
within  the  domain  of  system  identification,  prediction  and 


control  [46-62],  while  others  may  be  called  design  problems 
[63-66]  .  The  coirmon  goal  of  all  inverse  problems  is  to  de¬ 
termine  the  structure  of  a  system  which  has  a  desired  or 
observed  characteristic  output. 

Computational  procedures  for  the  solution  of  inverse 
problems  have  been  few  and  limited  in  scope.  The  method¬ 
ologies  put  forth  in  this  thesis  may  serve  to  widen  the 
range  of  inverse  problems  which  can  now  be  solved. 
formulate  inverse  problems  as  nonlinear  boundary  value 
problems,  since  we  possess  effective  computational  methods 
for  solving  many  classes  of  nonlinear  boundary  value  prob¬ 
lems.  These  methods  include  quasi linearization,  dynamic 
programming,  invariant  imbedding,  and  various  combinations 
Df  these  [67—69,  62],  A  number  of  modifications  of  the 
basic  techniques  are  given  in  Refs.  67,  70-72,  describing 
more  accurate  solutions  of  linear  algebraic  equations, 
simultaneous  calculations  of  successive  approximations,  and 
automatic  e.valuations  of  partial  derivatives. 

Much  remains  to  be  done  to  build  a  firm  library  of 
computational  procedures  for  the  solution  of  inverse  prob¬ 
lems.  Both  new  and  existing  methods  should  be  developed. 

In  particular,  system  identifica' ion  via  invariant  imbed¬ 
ding  [51]  appears  promising. 
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library  routines  mentioned  in  these  Appendices  are 
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Brooks,  N.  and  G.  R.  Levesque,  "RS  W028  -  Interval 
Test  Routine,  A  MAP-Coded  Subroutine  Revised  for 
use  with  7040/7044  FORTRAN",  RAND  7044  Library 
Routine  W028,  The  RAND  Corporation.  Santa  Monica, 
1964. 

Causey,  R. ,  W.  L.  Frank,  W.  L.  Sibley,  and  F. 
Valadez.  "RS  W031  —  RW  INT,  Adams-Moulton ,  Runge- 
Kutta  Integration  IBMAP  Coded  Subroutine  (FORTRAN 
IV)",  RAND  7044  Library  Routine  W031,  The  RAND 
Corporation,  Santa  Monica,  1964. 

Belcher  ,  S.  ,  and  B.  S.  Garbow,  "RS  WOl-^  -  ANF402  - 
Matrix  Inversion  with  Accompanying  Solution  of 
Linear  Equations".  RAND  7044  Library  Routine  W019, 
The  RAND  Corporation,  Santa  Monica,  1964. 

Clasen.  R.  J. ,  "RS  MSUB  —  Linear  Programming  Sub¬ 
routine,  FORTRAN  IV  Coded",  RAND  7044  Library 
Routine  W009 ,  The  RAND  Corporation,  Santa  Monica, 
1964. 
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PROGRAM  A .1 .  P RODUCTION  OF  0 BSE RV ATIONS 
The  complete  program  is  listed: 
tiAIN  program 
DAUX  subroutine 

The  following  library  routine  is  required 
INTS/INTM 
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i JC3  2890 , 33COY 160 .5 . 100. ICO  ,C 

SlbJOB  MAP 

iloFTC  ^'AIN  REF 

CON'.XCN  ALPHA  ,X1  ,Yl.C(4)»T(51) 

C 

C  3  BODY  ORBIT  DETERMINATION 

C 

1  READ! 5 . 103 ) NPRNT .MPFNT .ALPHA. XI .Y1 .DELTA 
.%R1  TE  (  6.93  )NPRNT  .VPRNT  .ALPHA.Xl  .Yl  .DELTA 
REAO(5.10:  ) ( C(  I  )  ,  I  =  1  .4  ) 

WRITE(6.91)  (C( I  )  .1  =  1.4) 

C 

T  <2  )  =0.0 
TO)  =DELTA 
DO  2  L=4.7 

2  T(L)=C»L-3) 

call  INTS( T. 4. 2.0.0. 0.0.0. 0) 

THETA=ATAN2(T(6).T(4)-1.0) 

SN=SIN( THETA) 

C5=COS( THETA) 

TN=SN/CS 

'aRITE<6.92) 

^^RITE<6.93)T(2).T(4).T(5).T{6).T(7).THETA.TN 

C 

CO  4  M1=1.mPRNT 
DC  3  M2=1.NPRNT 

3  CALL  INTM 

THETA=ATAN2( T<6).T(4)-1.0) 

SN=SIN{ THETA) 

CS  =  COS( THETA  ) 

TN=SN/CS 

4  'aRITE(6.93)T(2).T(4).T(5).T(6).T(7).TPETA.TN 
GO  TO  1 

C 

FCRMAT(2I12.4£12.6) 

131  FORMAT (6E 12. 8) 

93  FORMAT  (  1H12  I  2>^.4E20.8) 

91  FORMAT ( 1HC6E20. 8 ) 

92  FCR^‘AT(///9X1HT.19X1HX,15X5HDX/0T.19X1HY.15X5HDY/DT.15X5H THETA 
1  .  1  3X7rnANGENT//  ) 

93  FCRMAT(F10.2.iP6E20.5) 

END 

ilBFTC  DAUX  REF 

Subroutine  daux 

COMMON  alpha .X1.Y1.C(4)»T(51) 

c 

R=  T(4)«#2  T(6  )  **2 

R=SGRT (R»*3) 

R1=<X1-T<4) )»»2  ♦  (Yl-T(6))**2 
Rl  =  SORT i Rl**3  ) 

T ( 8 ) =T  <  5  ) 

T(9)=-T<4)/R  +  alpha* ( XI -T ( 4  )  ) /Rl 
T< 10)=T(7) 

T ( 1 1 ) =-T < 6 ) /R  *  ALPHA*(Y1-T (6)  )/R1 
RETURN 
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end 
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PROGRAM  A^2.  DETERMINATION  OF  ORBIT 
The  complete  program  is  listed: 

MAIN  program 
INPUT  subroutine 
DAUX  subroutine 
FUNl  subroutine 
FUN 2  subroutine 
PDRl  subroutine 
PDR2  subroutine 
START  subroutine 

The  following  library  routines  are  required 
INTS/INTM 
MAT IN V 


^  r\  r\  r\  r't 
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iluFTC  MAIN  R£F 

COMMON  T  (  36  3  i  .NEQ.<MAX  ,HGR  1  D  t  NCR  I  0  (  b)  »TH£TA(!j)»'A(4,251)  .ALPHA  . 

1  H(5.5.231l .P{5.251).A(50»50).B{50.1),X.U.Y.V.NPRNT .MPRNT .DT IME 

DIMENSION  PIVOT (50 .INDEX (50.2)  > I  PIVOT (50) 


THREE  BODY  ORBIT  DETERMINATION 

1  CALL  INPUT 
DO  8  1=1.5 
THET  =  THETA ( I  ) 

ST=SIN( THET) 

CT=COS( THET) 

TN=ST/CT 

8  PRINTI IA.ThET ,TN 

2  CALL  START 

K  ITERATIONS 

3  DO  19  <=1.KMAX 
NEQ=30 

4  T(2)=o.O 
T( 3)=HGRID 
DO  5  1=4.363 

5  T(I)=0. 

T( 5)=1.0 
T<  12)=1.0 
T<  19)  =  1.0 
T(26)=1.0 
T<  33)  =  1.0 
N=1 

X=W< 1 .1 ) 

Y=W( 3.1 ) 

6  CALL  INTS( T.NEG.2 »0.0.0.0.0.0) 

L  =  3 

DO  7  1=1.5 
L  =  L-*-l 

P(  I  .N)=T<L) 

DO  7  J=1.5 
L  =  L^1 

7  H( J.I .N)=T<L) 

PRINT49.T(2).<(H(J.I.N).I=1.5).J=1.5) 

integrate  OVER  RANGE 

DO  11  Ml=l. MPRNT 
DO  1C  M2=l .NPRNT 
CALL  INTM 
N  =  N+1 

X=W( 1 .N) 

Y=W(3.N) 

C  STORE  D»S  AND  H»S 

L  =  3 

DO  10  »I--1 .5 
L  =  L  +  1 

P( I .N)=T(L) 

DO  10  J=1.5 
L  =  L-^1 
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10  H  (  J  .  I  .  iN  )  =  T  (  L) 

PRINT40,T(2)»((H(JtI.N),I:ri,5),j=i,5) 

11  CONTINUE 
C 

C  COMPUTE  constants 

DO  14  1=1.5 
N=NGRID( I ) 

THET=THETA( I ) 

STHET=SIN( THET) 

CThET=COS( THET ) 

DO  13  J=1.5 

13  A(  I  .J)=H( J. 1 .N)*STHET  -H( J»3 »N1  *CTHET 
EM  I  .  1  )  =  ( 1 .-P(  1  .N)  )*STHET  +P( 3.M)*CTHET 

14  PRINT114.!A(I.JJ).JJ=1,5)»B(1»1) 

15  CALL  MATINV(A. 5. D»1 .DETERM. PIVOT.  INDEX. IPIVOT) 

PR  INTI  14  .  ( B(  I  .1 )  .  I  =  1 .5  ) 

C 

C  COMPUTE  NEW  W'S 

N=1 

DO  20  1=1.4  1 

2C  W(  I .N) =8(  I  .  1 ) 

ALPHA  =  8( 5 . 1 ) 
prin:40.<. alpha 
TIME=0,0 

AV=ATAN2(W( 3 .N) .W{ 1 .N)  -  1.0) 

TN=W( 3.N) /(W( 1 .N)-l*0) 

PR  I  N  T  5 : . T I  ME . ( W ( I . 1 ) . I  =  1 . 4 )  .  A  T  .  TN 
DO  18  M1=1.MPRNT 
DC  17  M2=l .NPRNT 
N  =  N+1 

00  17  1=1.4 
WU  .N)  =P(  I  .N) 

00  17  j=l .5 

17  W(  I  .N)=W(  I .N)  +  3( J.l )*H( J.I .N) 

TIME=TIME+0TIME 

AT=ATAN2( W( 3 .N) »W{ 1 .N)  -  1.0) 

TN=W( 3 .N ) / ( w ( 1 .N) -1 .0) 

18  PRINT50.TIVE.(W(I.N).T=1,4)»AT.TN 

/* 

V. 

19  CONTINUE 
C 

GO  TO  1 

40  FORMAT ( 1HU/4CX  9H I TERA T I  ON . I  3 . 5 X7HALPHA  =.  E18.6// 

1  6X4H  T . 14XiHX  .  19X2HX*  . 18X1H^ 

2  19X2HY‘ ♦ 15X5HANGLE . 13X7H TANGENT ) 

49  FORMAT (1H0F9.2.5E20.8/(]0X5E20.8)  ) 

50  FORMAT(F10.2.6E20.6) 

114  FORMAT!  IHC  6F.2G.6) 

END 

SI3FTC  INPUT  REF 

SUBROUTINE  INPUT 

COiMMON  T(  363)  .  NEQ  .  KMAX  .HGR  I  0 .  NGR  I  0  (  5 )  .  THE  T  A  (  5  )  .  W  (  4 . 25  1  )  .ALPHA. 

1  H(5.5.25:).P(5.251).A(50»50).B<50.1)  , X . U . Y . V . NPRNT . MPRN T . OT I  ME 

C 

REAOllO.NPRNT .MPRNT .XMAX 
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IHY. 


IMS 


PP  INTI  V  .NPRNT  ,'1PRNT  tKMAX 
REAUl  1  1  .HGR  I  D  ,*i.LPHA 
PRINT  1 1 .HGR ID»ALPHA 
F=NPRNT 
DT  IME  =  I-»HGRID 

READl 2  0. ( NGRI D(  I )  .THETA(  I )  .  1  =  1  .5) 

PRINT2  0. (NGR10(  I )  . THE T A (  I ) .  I  =  1  .  5 ) 
li:  FORMAT (61 12) 

10  FORMAT(1H06I20) 

111  FORMAT (6E12. a  ) 

11  FORMAT ( 1H06E20. 8) 

120  FORMAT! 112. E12. 8) 

2C  FCRMAT( I20.E20.8) 

RETURN 

END 

ilOFTC  DAUX  REF 

SUBROUTINE  DAUX 
C 

COMMON  T ( 36  3  )  . NEO . KMAX .HGR ! D . NGR I D ( 5 )  .THETA( S ) .  W( A .251  )  .ALPHA  » 

1  H(5»5.251).P(5.251)»A(50.50).B(50.1)  .  X  .  U  .  Y . V . NPRN T .MPRN T  » DT IM' 

2  .IFLAG 

DIMENSION  XX ( 2 ) »YY( 2) .ANS( 2 )  .PP t  5 ) »HH( 5.5 )  .PD ( 5 ) .HD( 5 . 5 ) »PD1 ( 3 ) » 
1  PD2(3)»AA(2J 

C 

GO  TO  ( 10.20) .IFLAG 

C 

10  XX(1)=T(4) 

XX(2)»0.0 
YY(  1  )=T»6) 

YY ( 2 ) =0.0 
AA ( 1) =ALPHA 
AA ( 2 ) =0.0 
T{8)=T(5) 

CALL  FuNI (XX.YY.AA.ANS) 

T( 9) =ANS( 1 ) 

C 

T ( 10) =T( 7) 

CALL  FUN2(XX.YY»AA.ANS) 

T( 11  )=ANS(  1) 

RETURN 

C 

20  XX(1)=X 

XX(2) =0.0 
YY ( 1 ) =Y 
YY ( 2 ) =0.0 
AA ( 1 ) =ALPHA 
AA(2) =0.0 
L  =  3 

DO  1  1=1.5 
L  =  L  +  1 

PP( I )=T(L) 

DO  1  J=1.5 
L  =  L  +  1 

1  HH  (  J  f  I  )  =  T  (  L  ) 

C  DX/DT 


n  n 


call  FUNl ( XX tVY  .AA* ANS ) 

CALL  PDRl ( XX tVY .AA.PDl) 

PD( 1  )  =PP{ ?  ) 

P0<Z)=ANS(1)  +  « PP{ 1 )-X ) *PDU  1)  +  ( PP( 3 )-Y ) «P01 { 2 ) 

1  (PP(5)  -  ALPHA)*P0U3) 

DO  2  J=l»f 
HD  U ♦ 1 ) =HH { J»  2  ) 

2  HD( J»2 ) =HH{ J» 1 )*PD1 < 1 )  +  HH(J.3)*PD1{2)  +  HH ( J . 5 ) »P01 < 3 ) 
OY/DT 

CALL  FUN2<XX.YY.AA,ANS} 

CALL  PDR2 ( XX fYY .AA,P02 ) 

PD{3)=PP(4) 

PD{4)  =^ANS(  1  )  +  <PP(  1  )-X)»P02<  1)  +  (PP(3)-Y)*PD2<2) 

1  +  {PP(5)  -  ALPHA)*P02(3) 

DO  3  J=1.5 
HD{ J»3)=HH( J»4) 

3  HO< J»4)=HH<J. 1 )*P02< 1)  +  hHJ J»3)*PD2(2 )  +  HH ( J ♦ 5 ) •PD2  (  3 . 

PO{ 5) =0.0 
DO  5  J=1.5 
5  HO (J» 5) =0.0 

DO  4  1=1,5 
L  =  L  +  1 

T (L ) =PO( I J 
DO  4  J=l,5 
L=L  +  1 

4  T(L)=HO(J,I) 

RETURN 
END 

SIBFTC  FUNl  REF 

SUBROUTINE  F UN 1 ( XX , Y Y , AA , ANS ) 

DIMENSION  XX  {  2  )  ,YY  (  2  )  ,AA.  {  2  )  » ANSI  2) 

X  =  XX{  1  ) 

Y  =  YY{  1  ) 

A  =  AA{ 1  ) 

R13={X*»2  +  Y»*2)**1.5 

R23= ( <X-4.C?**2  +  { Y-1.0)«*2)«*1.5 

ANS(1)=-X/R13  -  A*(X-4.0)/R25 

return 

END 

SIBFTC  FUN2  REF 

subroutine  FUN2 < XX , YY ,AA ,/ NS) 

DIMENSION  XX(2)yYY{2),AA{2)  » ANSI  2) 

X--XX  (  i  ) 

Y  =  YY{  1  ) 

/  aA(  1  ) 

R13=<X**:  +  Y»»2)*»1*5 

R23==  (  <  X-4.0)  **2  t-  {'i-l*0)**2)»*l.5 

ANSI  1 ) =-Y/R13  -  A»{ Y-1 .0) /R23 

RETURN 

END 

ilBFTC  POR)  REF 

SUBROUTINE  PDRl (XX,YY,AA,PD1) 
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DIS'ENSIC'J  XX  (  2  )  .YY  {  2  )  tAA  (  2  )  »POH  3  ) 

RR= (X-A.O ) •♦2  +  (Y-l,0)«»2 

R25  =  RS«»2. 5 
X  =  XX( 1  ) 

Y  =  YY( 1  ) 

R13  =  PR«*1 . 5 
A  =  AA( 1  i 
R15=RR**2. 5 

RR=(X-4.0)**2  V  (Y-1.0)**2 
R23  =  RR»*1 . 5 
R25  =  RR**2. 5 

PDl <1 )=-1.0/R13  4  3.0*X**2/R15  -  A/R23  +  3 .0*A* ( X-4.0 ) *»2/R25 

POl (2)=J.O»X«Y/Rl5  +  3jO«A« {X-4.0)*(Y~1.C)/R25 

PD1(3)=-(X-4.G)/R23 

RETURN 

END 

SIBFTC  PDR2  RE." 

SUBROi  tine  POR2 { XX.YY.AA .P02  I 
DIMENSION  XX(2) »YY{2) »AA(2I tP02(3) 

X  =  XX( 1  ) 

Y=YY( 1 ) 

A  =  aA( 1  ) 

RR=X**2  ♦  Y*»2 

R13sRR**;,5 

R23=RR**1.5 
RR  =  X«*2  Y*»2 

r15=rR##2,5 

PD2 ( 1 ) =3.0*X«Y/R15  +  3 . 0*A* ( X-4 . 0 J * ( Y- 1 . 0 J /R25 

PD2<2)=-1.0/R13  +  3.0*Y««2/R15  -  A/R23  3 .0*A*  (  Y-1 .0  )  «*2/R25 

PD2<3)=-<Y-1.CJ/R23 

RETURN 

END 

SI3FTC  START  REF 

SUBROUTINE  START 

COMMON  Tl  363 ■ . NEO » <MAX .HGR I D . NGR I D ( 5 )  .THETA( 5  J  tWl 4.251 )  .ALPHA. 

1  H(5.5.251).P(5.251).A{50.50).B<50.1) , X , U . Y , V . NPRNT .MPRN T . OT I ME 

2  .IFLAG 
C 

IFLAG=:1 
K  =  0 

PRINT4G,K 

N=1 

TIKE=C,0 
T { 2 ) =0,0 
T ( 3  I =HGRIO 

READllO.'Tl I ) ,1=4.7) 

.10  FORMAT (6E12. 8 ) 

CALL  INTSd  .4,2^0.0.0.0.0.0) 

DO  3  1=1.4 
3  WJ  •  .1 )  =T(  i-r3  ) 

PRl UT5C , T IME . (W( I ,N) . I =1 .4) 

DO  2  M1=1.MPRNT 
DO  1  M2 =1. NPRNT 
N  =  N+1 
CALL  INTM 
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DO  4  1=1,4 
4  W{  I  ,N ) =T {  I +3 ) 

1  CONTINUE 

T IME=T IME+DTIME 

2  PR  INT50,  T  I  ME  »  {  W  !  I  f  5  » I  =  l  ,4  ) 

IFLAG*2 

RETURN 

C 

40  FORMAT { 1H0/65X  9H I T E RA T I  ON , I  3// 

1  25X4H  T»14X1HX» 19X2HX' »13X1HY» 

2  19X2HY* ) 

50  FORMAT(F30.2»4E20.6) 

END 


288 
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APPENDIX  B 


PROGRAMS  FOR  RADIATIVE  TRANSFER:  LAYERED  MEDIA 
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P^OGRAM  B.l.  DETERMINATiqN_OF__  c  .  THE  THICKNESS  OF  _TH£ 
LOWER  LAYER 

The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 
NONLIN  subroutine 
PANDH  subroutine 
LINEAR  subroutine 
OUTPUT - subroutine 
ALBEDO  subroutine 

The  following  library  routine  is  required: 
INTS/INTM 


r»  r>  o 
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ilBFTC  RTINV 

COMN'.ON  N,RT(7),WT(7)*WR(7).AR(7,7)»NPRNT  ,  Ml  MAX  ♦  KMA  X  ♦  DEL  T  A  ♦  X  T  AU  ♦ 

1  ZERLAM,XLAM(2 ) ,B2(7,7).R2(7.7),!FLAG»R(28*101)»T(1A91)»SIG» 

2  P(2  »101)»H(28»3»101) »PTAU»PLAM ( 2 ) •HTAU ( 3  >  tHLAM ( 2  » 3  )  »P2 ( 7  ♦  7 )  ♦ 

3  H2 ( 7 ♦7»3 ) ♦CONST ( 3 ) tNEQ 
C 

C  PHASE  I 

C 

1  READIOOC.N 
PRINT899 
PRINT900,N 

READloOl ♦ ( RT (  I )  ,  1=1 ,N) 

PR INT901 » ( RT  U )  ♦  I  =  1 tN ) 

READluOl , ( WT (  I  )  ♦  I =1  .N ) 

PR INT901 ♦ ( wT ( I )  ♦  I  =  1 fN) 

DO  2  1=1. N 

WR ( I ) =WT ( I  ) /RT (  I  ) 

DO  2  J  =  1  .N 

2  AR(I.J)=  1,0/RT(I)  +  l.O/RKJ) 

C 

899  FORMAT ( 1H146X36HRA01 AT IVE  TRANSFER  -  INVERSE  PROBLEM  /  ) 

1000  FCRMAT(6I12) 

900  format (61 20) 

1001  F0RMAT{t€12.8) 

901  FORMAT (6E20. 8  ) 

READl^OG  tNPRNT  tMi.'AXfKMAX 
PR 1NT900  fNPRNT  tMlMAXfKMAX 
READlOOl tDELTA 

PR INT901 tDELTA 

READlv-Oi  tX  rAU»ZERLAM»XLAM(  1  )  »XLAM(2  ) 

PR INT902 

PR  IN  I  903  ,XTAU»ZERLAM»XLAM(  1  )  »XLA.v,  (2  ) 

902  FORMAT ( lH123hPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMATdHO/ 

1  1X1 IHTHICXNESS  =♦  F10,4  / 

2  1X11HALBED0(X )  =♦  20HA  +  B* T A NH ( ] 0 * ( X- C ) )  // 

3  1X3HA  =,  E16.8,  10X3HB  =♦  E16.e»  1CX3HC  =♦  E16.8  //) 

CALL  NONLIN 

DO  3  1=1. N 
DO  3  J=1.N 

3  B2 ( I  .  J)=R?  (  I . J) 


PHASE  I  I 

4  READl^^Ol  .X.TAU.ZERLAM.XLAM(  1  ).XLAM(2) 

K  =  0 

PRImT904.K 

PRINT9G3.XTAU.ZERLAM.Xi  Af.i  I  ) ♦XLAM(2) 
C 

CALL  NONLIN 
C 

904  FORMATdHl  1  3HAPPR0X  I  MAT  I  ON  .  13/  ) 

C 

C  QUASILINEARIZATION  ITERATIONS 


rv  n  r» 
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c 

DO  5  <1=1.KMAX 
PR 1NT904  fKl 
CALL  PANDH 
CALL  LINEAR 
5  CONTINUE 


READIOOO ♦ I  GO 
GO  TO  !  1  tA  )  ♦ I  GO 
END 

ilBFTC  DAUX 

subroutine  DAUX 

Dlf^ENSiON  V2(7,7)  .X(3)  .F(7)  .G(7) 

COMMON  N.RT(  7  )  .  WT  (  7  )  tWR<  7  )  ♦  AR  (  7  .  7  )  *rjPRNT  ,  M 1  MAX  .  KMAX  ,  DELTA  ,  X  TAU  ♦ 

1  ZERLAM,XLAM( 2 )  ♦ B2 ( 7 . 7 )  t R2 ( 7  ,  7 )  ,  I  F LAC  .  R ( 2 8  ♦  1 0 1  )»T(1491),S1G, 

2  P(28.101)»H(2a»3»10n  tPTAU.PLAMIZ )  »HTAU(3)  ♦HLAMIZtS)  ♦P2(7.7)  , 

3  H2 ( 7 ,7. 3 ) tCONST ( 3 ) tNEQ 
GO  TO  ( 1 *2 ) » IFlAG 

C 

CNONL INEAR 
C 

1  L  =  3 

DO  A  1=1, N 
DC  A  J=1 , I 
L  =  L  +  1 

A  V2 ( I  » J  )  =T ( L ) 

DO  5  I =1 ,N 
DO  5  J=  I  ,N 

5  V2( I  ,J)=V2( J»  I  ) 

L  =  L  +  1 

VLAM2=T ( L ) 

S1G=T(2 ) 

Y=XTAU*5IG 
X ( 1  )  =ZERLAM 
X ( 2 ) =XLAM(  1  ) 

X ( 3 ) =VLAM2 

call  AL3ED0( Y»X»Z) 

ZLAMDA=Z 

C 

DO  6  I=1,N 
F (  I  )  =0,0 
DO  7  <=1,N 

7  F(  1  )=F( I  )  +  WR(<)*V2<  I  *K] 

6  F ( 1  ) =0,5*f  II)  +  1.0 
C 

DO  8  1 =1 ,N 
DO  8  J=1 , I 
i.  =  L  1 

DR  =  -ARI 1 ,J)*V2I  1 , J)  +  ZLAMDA*F (  I  ) *F ( J  ) 

8  T(L)=DR 

DO  9  1=1,1 
L=L+1 

9  TIL) =0.0 
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return 

c 

c 

CL  INEAR 
C 

2  SIG=T(2) 

Y=XTAU*5IG 
X  (  1  )  =ZERLAM 
X ( 2  )  =XLAM( 1 5 
X ( 3 ) =XLAM( 2  ) 

CALL  ALBEDO! Y.X.Z) 

ZLAMDA=Z 

c 

DO  16  Ir.  1,N 
F ; : )  =0.0 
DO  17  K=1.N 

17  F(  I  )=F(  1  )  +  WR(K)»R2(  I  .K ) 

16  F (  I  )  =U.5*F (  I  )  +  1.0 
C 

CP'S 

c 

L  =  3 

DO  14  I=1,N 
DO  14  J=1 , ! 

L  =  L  +  1 

14  V2 ( I  * J )  =  T ( L ) 

DO  15  I=1»N 
DO  15  J= I f N 

15  V2( I *J)=V2 ! J*  I  ) 

L  =  L  +  i 

VLAN'2  =  T  (  L  ) 

C 

DO  10  1=1. N 
G(  I  )  =0.0 
DO  10  K=1.N 

1C  G(I)=G(I)  +  (V2(  I  .K)-R2(  I  »K) 

ARG=lo.O* ( Y-XLAM( 2 )  ) 

XTANX  =  -10.0*XLAM(1)»(1.0-(TANH(ARG))''*2) 
f-^  =  3  +  NEQ 
DO  12  I=1.N 
DO  12  J=1 .  I 
F I J  =  F ( I ) *F ( J  ) 

CAPF  =  -AR(  I  ,  J)  «R2  (  I  .  J)  +  ZLAMDA'^hlJ 
Tl=  -AR(  I .J)»( V2(  1  .J)-R2!  I  .J)  ) 

T2=  0.5*ZLAMDA*(F  (  I)»G(J)+F(J)'»G(I)) 

T3=  CAPF 

T4= ( VLAM2-XLAM( 2  )  )*XTANX*FI J 
M  =  M+1 

12  T(M)=T1+T2+T3+T4 

DO  19  1=1.1 
M  =  M+1 

19  T(M)»0.0 

C 

CH'  S 
C 
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do  lOu  K=1 , 1 
C 

DO  2^  1=1 tN 
DO  21*  J=1  .  I 
L--=L-*-l 

It*  V2n»J)  =  T(L) 

DO  25  1=1 .N 
DO  25  J= I tN 
25  V2 ( 1 » J )=V2 ( J* I ) 

L  =  L+1 

VLAM2=T( L ) 

C 

DO  20  1=1 ♦N 
G  (  I  )  =  0 . 0 
DO  20  J=1 .N 

20  G(I)=G(I)  +  V2 (  I ♦ J  )*WR( J  ) 

C 

DO  22  1  =  1  .N 
DO  22  J=1  ♦  I 
FIJ=F( I )*F( J) 

Tl=  -AR(  I  ♦J)*V2( I ♦ J) 

T2=  0. 5»ZLAM0A*{F( I)*G(J)+F(J)*G(I)) 

T3=0*0 

TA  =  VLAM2*XTAiNX<^FIJ 
M  =  M+1 

22  T ( M) =T1+T2+T3+TA 
C 

DO  29  1=1.1 
M  =  M+  1 

29  T(M)=0.0 

100  CONTINUE 
RETURN 
END 

SIBFTC  NONLIN 

subroutine  nonlin 

COMMON  N  .RT  (  7  )  .  WT  (.7  )  »WR<  7  )  .  AR  I  7 . 7  )  .  NPP  NT  ,  M 1  MAX  »  KM  A  X  .  DEL  TA  .  X  T  A  U  . 

1  ZERLAM,XLAM(2 ) »B2  <  7.7)  »R2 I  7 .7 )  . I F LAG . R ( 2 6 . 1 C 1 )  . T ( 1 49 1 ) . S I G . 

2  P(2e. 101). H(28. 3.101) .PTAU.PLAM { 2 ) ,HTAU ( 3 ) .HLAM( 2 .3  )  »P2 ( 7.7  )  . 

3  H2(7.7.3) »C0NST(3).NE0 

C  NONLINEAR  D.E.  FOR  TRUE  SOLUTION  OR  FOR  INITIAL  APPROX. 

C 

iflag=i 

T  <  2  )  ='^.0 
T  <  3 ) =OELTA 
v,=  l 
LI  =0 
L3  =  3 

DO  1  1=1. N 

DO  1  J=1.I 

LI =L1+1 

L3=L3+i 

R2  <  I . J  )  =  0.0 

R ( L 1 .M  )=R2 (  I  J J ) 

T(L3)=R2( I »J) 

=  L  3  + 1 


VJ  VJ 


-187- 


2  T ( L3 1 =XLAM( 2 J 
C 

iNiEO=  ( i\»(  N+1  )  )  /2  +  1 

call  IiNTS(  T  iNEQi2  *0t0.0.0»0  .C  ) 

c 

5IG=T(2) 
call  output 
c 

DO  5  Nil  =  l»MlMAX 
DO  A  M2=ltNPRNT 
CALL  INTM 
M  =  v,+  1 
L1=0 
L3  =  3 

DO  3  I =1  iN 
DO  3  J=1 . I 
L  1  =L1  +  1 
L3=L3+1 
R2  (  I  .  J  )  =  T ( L3 ) 

3  R(L1  •«)=R2(  I tJ) 

A  SIG=T(2) 

5  call  OUTPUT 
C 

RETURN 

END 

SiaFTC  PANDH 

SUBROUTINE  PANDH 

COMMON  N»RT  (  7  I  ,WT  (  7  I  ,WR  (  7  )  t  AR  (  7  *  7  )  .  Nf''5^T  ,  Ml  MAX  » KMA  X  » DEL  TA  .  XTAU. 

1  ZERLAM»XLAM(2) »b2(7,7)»R2(7.7)tIFLAG.R(28»l0l)»T(lA91).SIG. 

2  P(26i1O1I»H(20»3.1OI) »PTAU»PLAM ( 2 ) »HTAU«  3 ) .HLAM ( 2 . 3 )  .  P2 ( 7 . 7  )  . 

3  H2 ( 7,7, 3  I .CONST ( 3  I »NEO 
IFLAG=2 

T ( 2  )  =0.0 
T ( 3  )  =DELTA 
M=1 

C  P'S 

c 

L1=C 
L3  =  3 

DO  1  I =1 .N 
DO  1  J=1 . I 
LI =L1+1 
L3=L3+1 
P(L1  .M)=0.0 

1  T ( L3 ) =P( LI .M) 

L3=L3+1 
PLAM( 2  )=0.0 

2  T ( L3 ) =PLAM( 2 ) 

C 

H*  S 


DO  7  K=l,l 
L1=0 

DO  3  ;=i.N 
DO  3  J  =  1  .  I 
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L  1  =  L  1  +  1 
L3=L3+1 
H(L1 »K,M)=O.C 
3  T ( L3 ) =H( LI »K tM) 

C 

L3=L3+1 

6  HLAM( 2t<) =1 .0 

7  T ( L3 ) =HLAM< 2 *K » 

C 

L  =  0 

DO  8  I  =  1  ,N 
00  8  J  =  1  ,  I 
L  =  L+1 

6  R2 (  I  * J ) =R < L tM) 

DO  9  I=1»N 
DC  9  J=I »N 
9  R2  < I  ♦  J ) =R2 ( J  ♦  I  ) 

C 

NEQ  =  2*  <  <  N*  <  N  +  1 n /2  +  I  ) 

CALL  INTS<T»NEO»2»0»0»0»0»0»0) 

LMAX= ( N* ( N+  1  )  )  /2 

PRINT52»T(2)»(P<L»M)»H(L»1»N')»L  =  1»LWAX) 
82  FORMAT ( 1H0F9.4,5E20.8/ ( 10X5E2C.8 )  ) 

C 

DO  51  M1=1»M1MAX 
DO  50  M2=1»NPRNT 
call  INTM 
^'  =  y+ 1 

CPREV. APPROX.  R| 1 . J) 

Ll=o 

DO  1C  1  =  1, N 
DO  10  J=1,I 
LI =L1+1 

1C  R2( I »J)=R(L1 *M) 

DO  11  1=1 ,N 
DO  11  J= I  ,N 

11  R2( I .J)=R2( J.I  ) 

L1=0 

L3  =  3 

DO  12  I=1»N 
DO  12  J=1  .  1 
L1=L1+1 
L3=L3+1 

12  P(L1*M)=T(L3) 

L3=L3+1 

DO  13  K=l,l 
L1=C 

DO  lA  1  =  1, N 
DO  lA  J=  1  ,  I 
LI  =1.1  +  1 
L3=L3+1 

lA  H(L1,K,M)=T(L3) 

13  L3=L3+1 
5u  CONTINUE 

51  PRINT52,T(2) ♦(P<L-M},H(L,1,M) ,L=1,L'^AX) 
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return 

END 

SI6FTC  LINEAR 

SUBROUTINE  LINEAR 
DIMENSION  ChKiO) 

DIMENSION  A(  A9»3)  ♦8(4'' )  »EMAT(  n  .  P  I  VOT  (  50  )  »  I  NDEX  (  50  »  2  , 

1. IPIVOT(50) »FVEC{50»1) 

common  N,RT { 7 ) . WT ( 7 ) ♦ WR{ 7 ) tAR ( 7 . 7 )  . NPRNT , M 1  MAX . KMA X , DEL TA . XTAU  . 

1  2ERLAM,XLAM{2)*B2(7.7)»R2(7,7),iFLAG,R(28»l01)»T(149U.SIC7. 

2  F(28»1011»H(28»3»10n ♦PTAU»PLAM ( 2 )  .HTAU ( 3 )  »HLAM ( 2  »  3  )  » P2 ( 7 . 7  )  » 

3  H2 ( 7 .7,3  )  .CONST! 3  )  tNEQ 
CBOUNDARY  CONDITIONS 

MLAST=NPRNT»M1MAX  +  1 
DO  i  K=l.l 
L  =  u 

DO  2  1  =  1. N 
DO  2  w'=l ,  I 
L  =  L  +  1 

2  H2{I  ,J.K)=H{1.,K,MLAST) 

DO  1  I=1.N 

DO  1  J=I,N 

1  H2 < I . J.K) =H2 ( J, I ,K) 

L  =  0 

DO  3  I=1,N 
DO  3  J  =  1  .  I 
L  =  L+1 

3  P2 < I .J)=P(L*MLAST) 

DO  4  I  =1  ,N 

DO  4  J=I  ,N 

4  P2< I ,J)=P2( J,  I  ) 

ClEAST  SQUARES 

DO  5  K=1 , 1 

L  =  0 

DO  5  I  =  1  .N 
DO  5  J=1,N 
L  =  L  +  1 

5  A < L.K ) =H2 {  I  • J.K  ) 

L  =  0 

DO  6  1  =  1, N 
DO  6  J=1.N 
L  =  L+1 

6  B(L)=b2( i . J)  "  P2( I .J) 

C 

1_MAX  =  N**2 
PR INT60 

60  format (IHO) 

DO  61  L=1 ,LMAX 

61  -R INT82. ' A ( L.K) .K  =  l  .1 )  .B<L) 

C 

DO  8  1=1.1 
DO  7  J  =  1 .  1 
SUM  =  0. 0 
DO  9  L=1,LMAX 

9  SUM=SUM  +  A(L.I )#A{L.J) 

7  EMAT ( I . J) =SUM 


tlUtWliwuwK-jL. 
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GllM  =  0.0 

DO  10  L=1»LMAX 
1C  SUM  =  SUM  +  A(L»I  )*B(L) 

8  FVEC( 1 »1 ) =SUM 
C 

PRINT60 
DO  81  1=1.1 

81  PRINT82. (EMAT( I . J ) . J= 1 . 1 ) .F VE C ( I . 1 ) 

82  FORMAT(10X6E20.8) 

C 

FVEC(1.1)=FVEC(1»1)/EMAT( 1.1) 

C 

DO  11  1=1.1 

11  CONST  (  I  )=FVEC(  I  ..1  ) 

C 

XLAM( 2 )=CONST( 1  ) 

PRINT903.XTAU.ZERLAM.XLAMI 1 )  .XLAM(2; 

903  FORMATCIHO/ 

1  IXIIHTHICKNESS  =»  FlO.4  / 

2  1X11HAL8ED0(X)  =.  20HA  +  B«TANh ( ] 0* ( X-C ) )  // 

3  1X3HA  =,  £16.9.  10X3HB  =♦  E16.8.  iOX3HC  =.  £16.8  //) 
C 

CNEW  APPROXIMATION 
C 

M  =  1 
L  =  0 

DO  12  I=1.N 
DO  12  Jsl.I 
L  =  L+1 

SUV,  =  P(l.M) 

DO  13  K=l.l 

13  SUM  =SUM  +  CONST(K)*H(L»K.iM) 

12  R(L.M)=SUM 
L  =  0 

DO  14  1  =  1. N 
DO  14  J=1.I 
L  =  L+1 

14  R2n  .J)=R(L»M) 

SIG=0.0 

call  output 

c 

DO  5C  M1=1.M1MAX 
DO  16  M2=1.NPRNT 
y,=M+i 
L-O 

DO  13  1=1. N 
DO  15  J=1  .  I 
L  =  L*1 

SUM=P(L.M) 

DC  16  K=l.l 

16  SUM=SUM  +  C0NST(K)»H(L.K.M) 

15  R(L.M)=SUM 
L  =  0 

DO  17  I=1.N 
DO  17  J=1.I 
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L  =  L  +  1 

17  R2( I ♦J)=R(L»M) 

18  SIG=SIG  +  DELTA 
50  CALL  OUTPUT 

C 

RETURN 

END 

SIBFTC  OUTPUT 

SUBROUTINE  OUTPUT 
DIMENSION  X(‘3) 

common  N.RT( 7) »WT{ 7 ) »WR( 7) tARI 7*7 ) tNPRNT  tMl MAX  » KMAX * DEL TA ♦ XTAU » 

1  ZERLAM.XLAM(2 ) *B2(7*7) *R2(7»7) ♦ I  FLAG tR ( 28 ♦ 101 )tT(1491)»SIG» 

2  P(28»lOl)*H{20f3*lOl) *PTAU*PLAM(2 ) tHTAuI 3 ) tHLAM ( 2 ♦ 3 ) ♦ P2 ( 7 » 7  )  » 

3  H2 { 7,7*3 ) »CONST( 3 ) »NEQ 
DO  1  I=1*N 

DO  1  J=I *N 
1  R2{ I ,J)=R2( J» I ) 

Y=XTAU»SIG 
X { 1  )  =ZERLAM 
X { 2 ) =XLAM{ 1 ) 

X(3)=XLAM(2) 

CALL  ALBEDO! Y*X*Z) 

PRINTIOO*  SIG,Y,Z 

100  FORMATdHO  7HSIGMA  =*F6«2»  4X5HTAU  =♦  F6#2»  4X8HAL0EDO  **F6.2/) 
DO  2  J=1*N 

2  PRINT101,J,IR2(  I*J)  ♦I»1*N) 

101  FORMAT!  no*  7F10.6) 

RETURN 

END 

SIBFTC  albedo 

SUBROUTINE  ALBEDO ! Y *  X  * Z ) 

DIMENSION  X! 3) 

COMMON  N,RT! 7 ) *WT ! 7 ) ,WR! 7 ) ,AR ! 7*7 ) *NPRNT ,M1MAX * XMAX ,DELTA , XTAU » 

1  ZERLAM,XLAM! 2 ) , B2 ! 7  *  7 ) * R2 ! 7  *  7 ) *  I  FLAG *R ( 28  *  1 C 1 )*T!1491),SIG* 

2  P!28, 101 ),H{28, 3*101) , PTAU * PLAM ! 2 ) *HTAU!3) »HLAM!2»3) »P2!7*7) * 

3  H2!7,7,3) ,C0NST!3),NE0 
ARG»10,0*!Y-X!3)  ) 

Z=X!1)  ♦  X(2)»TANH! ARG) 

RETURN 

END 


480 
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PROGRAM  B. 2.  DETERMINATION  OF  T,  THE  OVERALL  OPTICAL 
THicKi^EgS 

The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 
NONLIN  subroutine 
PANDH  subroutine 
LINEAR  subroutine 
OUTPUT  subroutine 
ALBEDO  subroutine 

The  following  library  routine  is  required; 
INTS/IN'jCM 


n  n  r»  r»  n  r'l 
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SI  bFTC  RTIiNlV 


C 

r 

c 


c 


COMMON  N.RT(7)  ,WT(7) iWR(7) »AK( 7*7)  * NPPNT . MIMAX ♦ KMA X ♦ DELTA  *  X TAU » 

1  ZERLAM,XLAM(2 ) ,B2 ( 7.7 )  .R2 (7 ♦ 7)  ♦ irLAG»R( 2  8  *101 ) »T ( 1491 ) »SIG» 

2  P(28. 101). H(28. 3.101) .PTAU*PLAM( 2 ) .HTAUC  3) .HLAK( 2 .3) .P2 ( 7.7)  . 

3  H2  (  7 .7.3  )  .CONSK  3  )  .NEQ 

PHASE  I 

1  READluOO.N 
PR INT899 

R INT90G.N 

READlOOl . ( RT (  I )  .  1  =  1  .N) 

PRINT901 . (RT ( I ) . 1=1 .N) 

READluOl . ( WT ( I )  .  1  =  1  .N) 

PRINT901. (WT ( I )  .  1  =  1  .N) 

DO  2  1=1. N 

WR( I )=WT( I )/RT( I ) 

DO  2  J=1.N 

2  AR(I.J)=  1.0/RT(I)  +  1.0/RT(J) 


899  F0RMAT(1H146X36HRA0IATIVE  TRANSFER  -  INVERSE  PROBLEM  /  ) 
lOCu  F0RMAT(6I12) 

90u  FORMAT(6I20) 

1001  F0RMAT(6E12.8 ) 

901  FORMAT (6E20«e ) 

READ1000.NPRNT.M1MAX.KMAX 
PRINT900»NPRNT.M1MAX.KMAX 
REAOlOOl.DELTA 
PRINT901. DELTA 

READ1w01,XTAU.ZERLAM.XLAM( 1 ) .XLAM(2 ) 

PRINT902 

PRINT903.XTAU.ZERLAM.XLAM( 1  )  .XLAM(2  ) 

902  FORMAT ( 1H123HPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMATdHO/ 

1  IXIIHTHICKNESS  =.  FlO.4  / 

2  IXllHALBEDO(X)  =.  20HA  +  T ANH ( ] 0* ( X-C) )  // 

3  1X3HA  =,  E16.8.  1OX3H0  =.  E16.8.  10X3HC  =.  E16.8  //) 
CALL  NONLIN 

DO  3  1=1. N 
DO  3  J=1.N 
3  B2 ( I .J)=R2( I .J) 

C 

C 


PHASE  II 


4  READlv^Ol  ,XTAU.ZERLAM.XLAM(  1  )  .XLAM(  2  ) 
K  =  0 

PRINT9C4,K 

PRINT903.XTAU.ZERLAM.XLAM( 1  )  .XLAM(2  ) 


CALL  NONLIN 

904  FORMATdHl  1 3HAPPR0X  I  MAT  I  ON  .  13/  ) 


QUASILINEARIZATION  ITERATIONS 


o  r*  n 
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C 

DO  5  K.l  =  l,<MAX 
PRINT904»K1 
CALL  PANOH 
C  \LL  LINEAR 
5  CONTINUE 


READIOOO, IGO 
GO  TO  (l*A)tI GO 
END 

SI8FTC  DAUX 

SUBROUTINE  DAuX 

DIMENSION  V2(7,7) .X(3) .F(7) .G( 7) 

COMMON  N.RT(7).WT(7)»WR{7)»AK(7*7) * NPRNT ,M1MAX ♦ KMAX fDEL TA ♦ XTAU ♦ 

1  ZERLAM»XLAM( 2 ) » 62 (7*7) »R2(7»7) * irLAGtR(28»101)»T(1491)»SIG» 

2  P(28»10n«H(28»3»101)  *PTAU*  PLAM  (  2  )  *HTAU  (  3  )  tHLAM  (  2  #3  )  ♦P2  (  7  ♦  7  )  ♦ 

3  H2(7.7*3) ♦CONST( 3)»NEQ 
GO  TO  (1.2).  IFLAG 

C 

CNONL INEAR 
C 

1  L  =  3 

DO  4  1=1, N 
DO  4  J=1,I 
L  =  L+1 

4  V2(I.J)=T(L) 

DO  5  1  =  1, N 
DO  5  J=I  ,N 

5  V2( I .J)=V2( J.I  ) 

L  =  L  +  1 
VTAU=T(L) 

SIG  =  T (2  ) 

Y=VTAU*SIG 
X( 1 )=2ERLAM 
X ( 2 ) =XLAM(  1  ) 

X( 3)=XLAM(2) 

CALL  ALBEDO! Y,X,Z) 

ZLAMDA=2 

C 

DO  6  I=1,N 
F (  I  ) =u  ,  C 
DO  7  K=1,N 

7  F( I )=F( I )  +  WR(K)*V2( I ,K) 

6  F ( I ) =0,5*F (  I  )  +  1.0 
C 

DO  8  1=1, N 
DO  8  J=1 , I 
L  =  L  +  1 

DR=“AR( I ,J)*V2( I tJ)  +  ZLAM0A*F ( I ) »F ( J) 

8  T(L)=OR*VTAU 
DO  9  1=1,1 

L  =  L+1 

9  T(L)=C.O 
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return 


r 

CLINEAR 

C 

2  SIG=T{2) 

Y=XTAU*SIG 
X{  I  )  =ZERLAM 
X { 2  )  =XLAM{ 1 ) 

X{ 3 i =XLAM( 2 ) 

CALL  ALBED0( Y*X *Z) 

ZLAMDA=Z 

C 

DO  16  I=1»N 
F  (  n  =0.0 
DO  17  K=1,N 

17  F{  I  )=FI I )  +  WR{K)*R2( I ♦<) 

16  F{  I  ) =0.5»F{ I  )  +  1.0 
C 

CP'S 

C 

L  =  3 

DO  14  1=1. N 
DO  14  J=1«I 
L  =  L  +  1 

14  V2II.J)=T{L) 

DO  15  1=1. N 
DO  15  J=I .N 

15  V2 ( I .J)=V2 ( J. I ) 

L  =  L+1 
VTAU=T{L) 

C 

DO  10  1=1. N 
G(  I  )  =0.0 
DO  10  K.=  1.N 

10  G{I)=G{I)  +  (  V2  {  I  .K  )-R2(  I  .K.  >  )''WR{  K) 

ARG=10.0# { Y-XLAM( 2) ) 

PARTL=1C.0*SIG*XLAM( 1 ) *( 1 .0-( TANH(ARG) )**2) 
M=3+NE0 
DO  12  1=1. N 
DO  12  J=1 . I 
FI J=F { I )*F { J ) 

CAPF  =  ~AR{  I  .  J)  (I.J)  ZLAMI)A*FIJ 
T1=-XTAU*AR{  *  J)*{V2( I .J)-R2{ I  .JJ) 
T2=XTAU*0.5*^LAMDA*(F( I )*G( JJ+F( J)*G( I ) ) 
T3=XTAU*CAPF 

T4={ VTAU~XTAU)*{CAPF  *  XTAU»F I J*PARTL ) 

M  =  M+1 

12  TIM) =T1+T24T3+T4 
DO  19  1=1.1 
M  =  M  +  1 

19  TIM)=0.0 

C 

CH'S 

C 
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do  100  K=ltl 

c 

DO  2A  1  =  1, N 
DO  24  J=1,I 
L  =  L  +  1 

24  V2II»J)=T(L) 

DO  25  I=1»N 
DO  25  J=I »N 

25  V2( I ♦J)=V2( J»I ) 

L  =  L  +  1 

VTAU=T  ID 
C 

DO  20  1=1, N 
Gl  I  )=0.0 
DO  20  J=1,N 

20  G(I)=GII)  +  V2.  »JJ*WR(J) 

C 

DO  22  1=1, N 
DO  22  J=i,I 
FIJ=FI I )»F(J) 

CAPF  =  -AR(  I  ,  J)  *R2  I  I  ,  J)  +  2UAMDA-*FIJ 
T1=-XTAU*  ,  ( I J J ) *V? ( I , J) 

T2  =  XTAU*0.5*ZLAMDA*{F( I ) *0 i J ) +F IJ ) I  I) } 

T3=0.0 

T4=VTAU*(CAPF  +  XTAU*F iJ*PART L ) 

M  =  M+1 

22  TlM)=n  +  T2  +  T3+T4 
C 

DO  29  1=1,1 
K  =  M+1 

29  T(M)=G.C 
100  CONTINUE 
RETURN 
END 

ilBFTC  NONLIN 

SUBROUTINE  NONLIN 

COKNiON  N,RTI  7  )  ,WT(  7  )  ,WR(  7  )  ,AR  I  7 ,7  )  ,  NPRNT  ,  Ml  MAX  ,  KMAX  ,OEL  TA  ,  XTAU 

1  ZERLAM,XLAMI2 ) ,B2<7,7) ,R2I7,7) , IFLAG ,R ( 28 , lOl ) ,T I  1491 ) ,SIG, 

2  P I  28 , 101 ) »HI 20,3, 101 ) ,PTAU,PLAM I  2 ) ,HTAU( 3 ) ,HLAMI 2  *3 ) »P2 I  7 ,7  ) 

3  H2I7,7,3) »C0NST(3)»NE0 

C  NONLINEAR  D.E,  FOR  TRUF  SOLUTION  OR  FOR  INITIAL  APPROX. 

C 

IFLA6=1 
T(2)=0,0 
Tl 3)*DELTA 
M=1 
L1  =  0 
L3  =  3 

DO  1  I--=1,N 
DO  1  J=1,I 
L1=L 1+1 
L3=L3+1 
R2( I ,J)=0.0 
R(L1»M)=R2I I tJ) 

T(L3>=R2n  , J) 


1 
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L3=L3+1 

2  T{L3)=XTAU 
C 

NE0={N*(N+1 ) ) /2  +  1 

CALL  INTSC T»NEO.2»0.0*0»0*0tU) 

C 

SIG=T{2) 

CALL  OUTPUT 
C 

DO  5  M1=1,M1MAX 
DO  4  M2=1»NPRNT 
CALL  INTM 
K  =  M+1 
L1=C 
L3  =  3 

DO  3  1=1. N 
DO  3  J=1»I 
L1=L1  +  1 
L3=L3+1 
R2 {  I  . J)  =  T{ L3) 

3  R{L1.M)=R2( I tJ) 

4  SIG=T{2) 

5  CALL  OUTPUT 
C 

RETURN 

END 

iloFTC  LINEAR 

SUBROUTINE  LINEAR 
DIMENSION  CHKI{3) 

DIMENSION  A(49.3) .0(49) »EMAT{50»30) .  P I VOT ( 50 ) . I NDEX ( 5 

1.!PIVOT(50) .FVEC(50.1) 

COMMON  N.RTIT) »WT(7) .WR(7) .ARC?. 7)  . NPRNT , Ml MAX ♦ KMAX .DELTA . XT/ U 

1  ZERLAM.XLAM(2 ) . B2 ( 7 . 7 ) . R2 ( 7 . 7 > . I F LAG .R ( 28 . lOl ) . T ( 1491 ) . S I G 

2  P(28.101).H(28.3.101) .PTAU.PLAM ( 2 ) .HTAU( 3) .HLAM(2 .3 ) .P2 I  7.7) 

3  H2{7.7.3) »C0NST(3) .MEO 
CBOUNDARY  CONDITIONS 

MLAST=NPRNT*M1MAX  +  1 
DO  1  K=l.l 
L  =  w 

DC  2  1=1. N 
DO  2  J=1.I 
L  =  L  +  1 

2  H2( I  .J.K)=H(L.K.MLAST) 

DO  1  1=1. N 

DO  1  J=I.N 

1  H2 ( I . J.K) =H2J J. I .<) 

L  =  C 

DO  3  1=1 .N 
DO  3  J=1 . I 
L  =  L+1 

3  P2( I .J)=P{L»MLAST) 

DO  4  1=1. N 

DO  4  J=I .N 

4  P2 ( I . J )=P2 { J.  I  ) 

CLEAST  SQUARES 
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DO  5  K=l,l 

L  =  o 

DO  5  1=1. N 
DO  5  J=1,N 
L  =  L+1 

5  A(L.K)=H2( I »J»K) 

L  =  0 

DO  6  1=1. N 
DO  6  J=1.N 
L  =  L  +  1 

6  6(L)=82{ I . J)  “  P2( I .J) 

C 

LMAX=N»#2 

PRINT60 

60  FORMAT(IHO) 

DO  61  L=1.LM.*X 

61  PRINT82.(A(L.K) .K=l.l) .B(L) 

C 

DO  8  1=1.1 
DO  7  J=l.l 
SUM=0.0 
DO  9  L=1.LMAX 
9  SUM  =  SUM  +  A(L.n*A(L»J) 

7  EMAT ( I  .  J ) sSUM 
SUM=0.0 

DO  10  L=1.LMAX 

10  SUMsSUM  +  A(L.n*B(L) 

8  FVEC(  I  .DsSUM 
C 

PRINT60 
DO  81  1=1.1 

61  PRINT62.(EMAT(I.J),J  =  l.n.FVEC(I.l) 

82  FORMAK  10X6E20,8) 

C 

FVEC( 1 .1 ) =FVEC( 1 .1 ) /EMAT ( 1 . 1 ) 

C 

DO  11  1=1.1 

11  CONST( I )=FVEC( I  .1  ) 

C 

XTAU  =CONST(l) 

PRINT903.XTAU.ZERLAM.XLAM( 1  )  .XLAM(2  » 

903  FORMATdHO/ 

1  1X11HTHICKNES6  =.  £16.6  / 

2  1X11HAL6ED0(X)  =.  20HA  +  B*T ANH ( 1 0* ( X-C ) )  // 

3  1X3HA  =.  cl6.8.  10X3HD  =.  fcl6.8.  10X3HC  =.  E16.8  //) 
C 

CNEW  APPROXIMATION 
C 

M=1 
L  =  0 

DO  12  1  =  1. N 
DO  12  J=1.I 
L  =  L+1 

SU7.  =  P(L.M) 

DC  13  <=1.1 


n 
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13  SUM  =SUM  +  CONST(K)*H(L»K»M) 

12  R(L*M)=SUM 

L  =  0 

DO  lU  1=1, N 
DO  14  J=1 , I 
L  =  L  +  1 

14  R2 { I *J)=R{L»M) 

S 1G=0.0 

CALL  OUTPUT 
C 

DO  50  M1=1,M1MAX 
DO  18  M2=1»NPRNT 
M  =  M+1 
L  =  0 

DO  15  1=1, N 
DO  15  J=1,I 
L  =  L  +  1 

SUM=P(L,M) 

DO  16  K=l,l 

16  SUM=SUM  +  C0NST(K)«H(L»K»M) 

15  R{L»M)=SUM 
L  =  U 

DO  17  1=1, N 
DO  17  J=1,I 
L  =  L  +  1 

17  R2 { I »J)=R(L»K) 

16  S1G=SIG  +  DELTA 
5U  CALL  OUTPUT 

C 

RETURN 

END 

SIBFTC  PANDH  LIST 

subroutine  PANDH 

COMMON  N,RT(7) ,WT(7) tWR(7) »AR( 7»7) * NPPN T , Ml MAX » <MAX » DEL T' , XTAU » 

1  ZERLAM,XLAM(2 ) »B2 (7,7)  ,R2 ( 7, 7) , IFLAG»R{ 28  *  101 ) »T ( 1491 ) »SIG» 

2  P(26»1015»H(28,3»101) ,PTAU»PLAM(2 ) ,HTAU(3) , HL AM ( 2 » 3 >  * P2 ( 7 , 7 ) » 

3  H2(7»7,3)  tCONSTO)  »NEQ 
1FLAG=2 
T ( 2 ) =u.O 
T( 3)=0ELTA 
M=1 

P'S 


L1=C 
L3  =  3 

DO  1  I=1»N 
DO  1  J=ltl 
L1=L1+1 
L3=L3+1 
P(L1 *m;=o.o 

1  T(L3)=P(L1»M) 
L3=L3+1 

PTAU  =  ^  .0 

2  T(L3)=PTAU 


‘"'Wliii/aMi. 
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C  H'S 

c 

DO  7 

LI  =0 

DO  3  I=1»N 
DC  J=1»I 
Ll=Li+i 
L3=L3+ 1 
H(Ll»K?*^i=0»Li 
3  Y ( L3) =H( LI »K»M) 

C 

L J=L3+1 

6  HTAU(K)=1.0 

7  T(L3)=HTAU(K;) 

C 

L  =  0 

DO  8  I =1 ,N 
DO  6  J=l»I 
L  =  L  +  1 

8  R2 ( I ♦J)=R( L»M) 

DO  9  I=1»N 

DO  9  J=I  tN 

9  R2( I ♦J)=R2 ( J* I ) 

C 

NEO  =  2*( (N*.N+1) )/2  +  1  J 
CALL  INTS( T »NEO»2 »0»0*0»0»0 *0 ) 
LN'AX=(N*(N-*-1)  )/2 
C 

DC  51  .Ml  =  l»MiMAX 
DO  5C  M2=ltNPRNT 
CALL  INTV, 

M  =  M+1 

CPREV. APPROX.  R (  I » J  ) 

Li=0 

DC  10  I=1,N 
DO  10  J=1 »  I 
LI =L1+1 

10  R2( I »J)=R(L1 »M) 

DO  11  1^1 »N 

DO  11  J=I.N 

11  R2( I .J)=R2(0» I ) 

L1  =  0 

l3  =  3 

DO  12  1  =  1. N 
DO  12  J=1  .  I 
L1=L1+1 
L3=L3+1 

12  P(L1  ^M/-TIL3) 

L2=L3+1 

DO  13  .  1 

L1=0 

DO  14  1  =  1, N 
DO  14  0=1,1 
LI  =L\-f-J. 

L3=L3+1 
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14  H(L1 fXfM)=T(L3) 

13  L3=L3+1 

CONTINUE 
51  CONTINUE 
Rb  TURN 
END 

SI8FTC  OUTPUT 

SUBROUTINE  OUTPUT 
DIMENSION  XI3) 

COMMON  N»RT{7)»WT{7)»WR{7)»AR{7»7).NPRNT ♦Ml MAX ♦ KMAX ♦ DELTA  t X TAU ♦ 

1  ZERLAMfXLAM(2)»B2<7f7) ♦R2(7f7MlFLAGtR(28tl0l) ♦T(1491)?SIGt 

2  P(2a»101)fHI28t3il01)fPTAU  tPLAM ( 2 ) ♦HT  AU ( 3 ) tHLAM {2t3)»P2{7t7)t 

3  H2(7f7i3)  ♦CONST.'S)  fNEQ 
DO  1  i '1 fN 

DO  1  J=IfN 
1  R2(  I  ♦J)=R2( J»  I  ) 

Y=XTAU*SIG 
X(  1  )=ZERLAM 
X(2)=XLAM{ 1 ) 

X(3)=XLAM(2) 

CALL  ALBEDO! YfX,Z) 

PRINTlOOf  SiGfYfZ 

lOu  FORMATdHO  7hSIGMA  =tF6.2»  4X5HTAU  =,  F6.2t  4X8HALBEOO  =tF6,2/) 
DO  2  J=lfN 

2  PRINTIOI , Jf {R2( I fJ)  ♦I  =  lfN) 

101  FORMATdlOf  7F10.6) 

RETURN 

END 

5IBFTC  ALBEDO 

subroutine  alb.  ;(YfXfZ) 

DIMENSION  X(3) 

COMMON  N  fRT ( 7 ) ♦ WT ( 7 ) ♦ WR ( 7 )  ♦ AN ( 7 ♦ 7 ) ♦NORNT ♦ Ml  MAX ♦ KMAX ♦ DEL TA ♦ XTAU ♦ 

1  ZERLAMfXLAM(2 ) ♦ B2 ( 7 ♦ 7 ) , R2 ( 7  ♦  7 )  d F LA G fR ( 28 ♦ 1 01 ) t T ( 149 1 ) ♦ S I G ♦ 

2  P(26fl01)fH(28f3»101)fPTAUfPLAM(2l,HTAU(3) tHLAM ( 2 ♦ 3 ) ♦ P2 ( 7 ♦ 7 ) ♦ 

3  H2(7f7f3) »C0NST(3)»NE0 
ARG=lO.O* { Y-X ( 3 ) ) 

2  =  X(  1  )  +  X{2)*TANH{ARG) 

RETURN 

END 


479 


-202- 


PROGRAM  B.3.  DETERMINATION  OF  THE  TWO  ALBEDOS  AND  THE 
THICKNESS  OF  THrXDWER  LAYER 

The  complete  program  is  listed: 

MAIN  program 

DAUX  subroutine 

NONLIN  subroutine 

PANDH  subroutine 

LINEAR  subroutine 

OUTPUT  subroutine 

ALBEDO  subroutine 

The  fol^  'wing  library  routines  are  required: 
MAXINV 
INTS/INTM 
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iJOB  2609 tSTRAT3» HKO 160 ,5  »C»20.P 

SPAUSE 

SIBJOE  STRAT2  MAP 
SIBFTC  RTINV 

COMMON  NtRT(7)tWT(7)»WR(7)»AR(7»7) » NPRNT t Ml MAX t KMAX t DELTA ♦ XTAU ♦ 

1  XLAMO),  B2  W.  7)  .R2  (7.7)  .  IFLAG*R(28.101  )  .T(  1491  )  tSIG* 

2  P(28» 10 1)»H(20. 3.101) .PLAM(3) .HLAM(3.3) .P2(7.7) . 

3  H2(7.7.3) »C0NST(3).NEQ 
C 

C  PHASE  ! 

C 

1  READIOOO.N 
PRINT899 
PRINT900.N 

READlOOl. ( RT ( I ) . 1=1 .N) 

PRINT901 . ( RT ( I ) . 1=1 .N) 

READlOOl . ( WT ( I ) . 1=1 .N) 

PRINT901. (WT( I ) .1=1 .N) 

DO  2  1=1. N 

WR( I )=WT( I )/RT( I ) 

DO  2  J=1.N 

2  AR(I.J)=  l.U/RT(I)  +  1.0/RT(J) 

C 

899  FORMAT( 1H146X36HRA0IATIVE  TRANSFER  ~  INVERSE  PROBLEM  /  ) 

1000  F0RMAT(6I12) 

900  FORMAT (61 20) 

100  -  7MAT(6E12.8) 

9^  ^'AT(6E20.8) 

.DIOOO.NPRNT.MIMAX.XMAX 
PRINT90G.NPRNT.M1MAX.KMAX 
READloOl, delta 
PRINTS  U. DELTA 

READlo. l.XTAU. (XLAM( I ) . I =1 .3) 

PRINT902 

PRINT903.XTAU.(XLAM( I ) .1=1 .3) 

902  FORMAT (1H123HPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMAT (IHO/ 

1  IXIIHTHICKNESS  =.  F10.4  / 

2  iXllHALbEDO(X)  =.  20HA  +  B*TANH ( 10* ( X-C ) )  // 

3  1X3HA  =.  E16.0.  10X3HB  =.  E16.8.  10X3HC  =.  E16.8  //) 

CALL  NONLIN 

DO  3  1=1. N 
DO  3  J=1.N 

3  B2( I .J)=R2 ( I . J) 

C 

c 

C  PHASE  II 

C 

4  READlOOl. XTAU.(XLAM( I) .1=1.3) 

K  =  G 

PRINT904.K 

PRINT903.XTAU. (XLAM( I) .1=1.3) 

C 

CALL  NONLIN 
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904  FORMAKlHl  13HAPPROX  IMAT  1  ON  .  13/  ) 

C 

C  QUASILINEARIZATION  ITERATIONS 

C 

DO  5  K1=1.KMAX 
PRINT904,K1 
CALL  PANDH 
CALL  LINEAR 
5  CONTINUE 
C 
C 
C 

READIOOO, IGO 
GO  TO  ( 1 .4 ) » IGO 
END 

SIBFTC  DAUX  LIST 

SUBROUTINE  DAUX 

DIMENSION  V2(7,7) »X(3) »F(7) tGI?) 

1  »VLAM{3) 

COMMON  N.RT(7 )  ,WT(7 J  »WR{7) tARl 7»7 ) ♦ NPRNT . Ml  MAX . KMAX  ,  DELTA  .  XTAU  » 

1  XLAM(3),  B2 ( 7*7) tRZ (7 *7) . IFLAG.R V 28.101 ) ♦ T { 1491 ) »SIG» 

2  P{28.1C1).H(26»3»101) .PLAMCa) .HLAM(3»3)  »P2(7»7)  , 

3  H2( 7 .7.3 ) .CONST ( 3 ) »NEQ 
GO  TO  { 1 .2 ) » IFLAG 

XL  I  NEAR 


;  L  =  3 

DO  4  1=1, N 
DO  4  J=1 . I 
L  =  L  +  1 

V2(I.J)  =  T{L) 

DO  5  1=1. N 
DO  5  J=I,N 

5  V2 ( I . J)=V2 { J.  I  ) 

DO  51  1=1,3 

L  =  L  +  1 

51  VLAM(!)=T(L) 

SIG=T(2) 

Y=XTAU*SIG 
DC  52  1=1.3 

52  X(I)=VLAM(M 

CALL  ALBEDO! Y.X.Z) 

ZLAMDA=Z 

DC  6  I=1,N 
F i i )=0.0 
DO  7  K=1,N 

7  F(  I  )=F( I )  +  WR(K)*V2( I »<) 

6  F(  I  )=U,5*F(  I  )  -t-  1.0 

DO  8  1=1, N 
DO  8  J=1,I 
L  =  L-*-l 

DR=-AR(I,J)*V2(  I.J)  +  IwrtMDA*F{  n*F(J) 
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T(L)=DR 
DO  9  I=l»3 
L  =  L+1 

9  T(L)=y.O 
RETURN 


CLINEAR 

C 

2  SIG=T(2) 

Y=XTAU*SIG 
DO  21  I=l»3 
21  X(I)=XLAM(I) 

CALL  ALBEDO( Y»X»Z) 

ZLAMDA=2 

C 

DO  16  I=1»N 
F ( I ) =0.0 
DO  17  K=1»N 

17  F(  I  )=F(  I  )  ■!•  WR(K)*R2(  I  »<) 

16  F( I ) =0.5*F(  I  )  +  1.0 

C 

CP'S 

r 

L  =  3 

DO  14  I=1.N 
DO  14  J=1»I 
L  =  L  +  1 

14  V2(!.J)=T(L) 

DO  15  I=1»N 
DO  15  J=I»N 

15  V2 ( I tJ) =V2 ( J»  I  ) 

DO  18  I=lf3 

L  =  L+1 

18  VLAM(I)=T(L) 

C 

DO  10  1=1 tN 
G(  I  )  =0.0 
DO  10  K=1.N 

10  G(I)=G(I)  +  (V2(  I  »K)“R2(  I  »Kn*WR(K) 

ARG=10.0*(Y-XLAM( 3)  ) 

TARG=TANH( ARG) 

XTANX  =  -10.0*XLAy<  2 ) *( 1.0-TARG»*2) 
M=3+NEQ 
DO  12  1  =  1. N 
DO  12  J=1.I 
FI  J  =  F(  n*F(  J) 

CAPF=-AR( I , J) »R2 ( I » J)  +  ZLAMDA*FIJ 
T1=CAPF 

T2  =  “AR( I .J)*(V2( I .J)-R2(  I  »J)  ) 

1  +  0.5*ZLAMDA#(F( I )*G( J)  +  F(J)*G(I)) 

T3=(VLAM( 1 )-XLAM( 1 ) )*FI J 
T4=(VLAM(2)"XLAM(2) )*TARG*FIJ 
T5= i VLAM( 3 )-XLAM( 3) )*XTANX*FI J 
M  =  M+1 
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12  T(M)  =Tl  +  T2  +  T3  +  T4-fT5 
DO  19  I*=lt3 
M  =  M+1 

19  T(M)=0,0 
C 

CH*S 

C 

DO  100  K=lt3 
C 

DO  24  I=ltN 
DO  24  J=1 , I 
L  =  L  +  1 

24  V2(ItJ)=T(L) 

DO  25  I=ltN 
DO  25  J=I tN 

25  V2(  I  tJ!=V2(J»n 
DO  26  1=1,3 

L  =  L+1 

26  VLAM(n  =  T(L) 

C 

DO  20  1=1, N 
6(1)  =0.0 
DO  20  J=1,N 

20  3(I)=G(I)  +  V2( I » J)*WR( J) 

C 

DO  22  1=1, N 
DO  22  J=1,I 
FIJ=F( I )4F( J) 

T1=0.0 

T2  =  -AR(I ,J)*V2{ I  ,J)  +  0.5»2LAMDA#(F(I )*G( J)  +  F(J)’^G(I)) 
T3=VLAM{ 1 ) *F IJ 
T4=VLAM{2)*TARG*FIJ 
T5  =  VLAM{  3  )-»XTANX#F  IJ 
M=M+1 

22  T{M) =T1+T2+T3+T4+T5 
C 

DO  29  1=1,3 


M  =  M+1 

29  T(M)=u,0 

100  CONTINUE 
RETURN 
END 

IIBFTC  NONLIN 


SUBROUTINE  NUNLIN 

COMMON  N,RT{"(  )  ,WT(7)  ,WR(7)  ,AR(7,7)  ,  NPRNT  ,  Ml  MAX  ,  KMA  X  ,  DEL  TA  ,  XTAU  , 

1  XLAM(3)t  B2{7,7) ,R2(7,7) ,1FLAG,R(28,101) ,T(1491) ,SIG, 

2  P(26,101)tH(28,3,10l) ,PLAM( 3) »HLAM(3,3)  tP2(7,7)  , 

3  H2(7,7,3) tC0NST(3)fNE0 

NONLINEAR  D.E.  FOR  TRUE  SOLUTION  OR  FOR  INITIAL  APPROX, 


IFLAG=1 

T(2)=0.0 

T(3)=0ELTA 

M=1 

L1=0 


C 

c 


r\  r\ 
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L3  =  3 

DO  1  1=1.N 
DO  1  J=1,I 
L1=L1-H 
L3=L3+1 
R2( I »J)=0.0 
R(L1»M)=R2( I *J) 

1  T(L3)=R2( I .J) 

DO  2  I=l»3 
L3=L3+1 

?  T(L3)=XLAM( I ) 

C 

NEO=(N»(N-H  n/2  +  3 

CALL  INTS(T»NEQ*2*0*0*0»0»0»0) 

C 

SIG=T(2) 

CALL  OUTPUT 
C 

DO  5  M1=1.M1MAX 

DO  4  M2=1»NPRNT 

CALL  INTM 

M=M+1 

L1=0 

L3  =  3 

DO  3  I=1»N 

DO  3  J=lfl 

L1=L1+1 

L3=L3+1 

R2( I »J)=T(L3) 

3  R(L1*M)*R2( I »J) 

4  SIG=TC2) 

5  CALL  OUTPUT 
C 

RETURN 

END 

SIBFTC  PANDH 

SUBROUTINE  PANDH 

COMMON  N*RT(7) .WT{7) »WR(7) »AR(7*7) *NPRNT,M1MAX»KMAX»0ELTA*XTAU* 

1  XLAM(3)»  B2(7f7) .R2(7»7)»IFLAG»R(2e*l0l>»T(l491)»SIG* 

2  P(28*10l  )  »H(28f3»10L)  tPLAMO)  *HLAM(3»3)  »?2(7*73  » 

3  H2(7.7.3) »CONST(3) »NEQ 
IFLAG=2 

T( 2 )=0.0 

T(3)*DELTA 

M=1 


L1  =  0 
L3  =  3 

DO  1  I=1»N 
DO  1  J=1»I 
L1=L1+1 
L3=L3+1 
P(L1  »M)=04»0 
1  T(L3)=P(L1»M) 


rt  r»  n 
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DO  2  1=1.3 
L3=L3+1 
PLANK  I  )=0.0 
2  T(L3)-PLAM{ I ) 

H»S 


00  7  K=1.3 
L1=0 

DO  3  1=1. N 
DO  3  J=1 . I 
L1=L1+1 
L3=L3+1 
H(L1»<»M)=0.0 
3  T{L3)=H{L1»K»M) 

C 

DO  7  1=1.3 
L3=L3+1 
HLAM{  I  .0=0.0 
IF{  1-07.6.7 

6  HLAM(  I  .0  =  1.0 

7  T{L3)=HLAM( I .K) 

C 

L  =  0 

DO  8  1=1. N 
DO  8  J=1 . I 
L  =  L+1 

8  R2( I .JlsKiLfM) 

DO  9  1=1, N 

DO  9  J=I,N 

9  R2( I  .  J  )=R2 ( J.  I  ) 

C 

NEQ=4*( ( N* (N+1 ) ) /2  +  3 ) 

CALL  INTS( T,NEO.2.0.0»0.0.G.0) 
LMAX={N«(N+1 ) )/2 

PRINT52.T(  2)  ,  (PCL.M)  ,H(L.1.VJ  .L=l  ,LN!AX  ) 
52  FORMAK 1H0F9.A.5E20.8/(10X5E2G.8) ) 

C 

DO  51  M1=1,M1MAX 
DO  50  M2=1»NPRNT 
CALL  INTM 
M  =  M+1 

CPREV. APPROX.  R{ I ,J) 

L1=0 

DO  10  1  =  1, N 
DO  10  J=1,I 
L1=L1+1 

10  R2« I ,J)=R{LlfM) 

DO  11  1=1, N 

DO  11  J=I,N 

11  R2{ I ,J)=R2( J»I  ) 

L1=0 

L3  =  3 

DO  12  1  =  1, N 
DO  12  J=1,I 
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L1=L1+1 

L3=L3+1 

12  P(L1»M)=T(L3) 

L3  =  L3-s-3 

DO  13  K=l»3 
L1  =  0 

DO  14  I=1*N 
DO  14  J=1,I 
L1=L1+1 
L3  =  L3-U 

14  H(L1 tKtM) =T( L3) 

13  L3=L3+3 

50  CONTINUE 

51  PRINT52*T(2)»(P(L»M)»H(L»1*M) ♦L=1 tLMAX ) 

RETURN 

END 

5IBFTC  LINEAR 

subroutine  linear 

DIMENSION  CHKI ( 3 ) 

DIMENSION  A( 49t3 ) tB (49 ) tEMAT( 50»50)  ♦  P I VOT ( 50 ) » I NDEX ( 50  * 2 > 

1 f IPIVOT(50) »FVEC(50tl) 

COMMON  NtRT(7) .WK?) tWRt?) *AR(7»7) t NPRNT tMlMAX » KMAX tDELTA » XTAU » 

1  XLAM(3)»  B2 (7f 7) »R2 (7»7) ♦ IFLAG»R(28»101 ) »T ( 1491 ) »SIG» 

2  P(28tl01)tH(28.3»10i) tPLAMI 3 ) tHLAM ( 3 *3 )  »P2(7*7)  , 

3  H2(7t7t3) tCONST{3) tNEO 
CBOUNDARY  CONDITIONS 

MLAST=NPRNT*M1MAX  +  1 
DO  I  K=lf3 
L  =  U 

DO  2  I=lfN 
DO  2  J=lfl 
L  =  L  +  1 

2  H2 (I f JfK) =H( LfKfMLAST ) 

DC  1  I=lfN 

DO  I  J=IfN 

1  H2 ( I f J»K) =H2 ( Jf I fK) 

L  =  U 

DO  3  I=lfN 
DO  3  J=lfl 
L  =  L+1 

3  P2 ( I ♦ J )=P( LfMLAST ) 

DO  4  I=l»N 

DO  4  J=I fN 

4  '32(  I  ♦J)  =  P2(J»I  ) 

CLEAST  SQUARES 

DO  5  <=lt3 
L  =  0 

DO  5  l=l»N 
DO  5  J=1»N 
L  =  L  +  1 

5  A(L»K)=H2(I tJfK) 

L  =  0 

DO  6  I=1»N 
DO  6  J*1»N 
L  =  L  +  1 


':mi« 
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6  B(L}=B2(  I  t  J)  -  P2n  .J) 

C 

LMAX=N#»2 

PRINT60 

60  FORMAT (IHO) 

DO  61  L=1»LMAX 

61  PRINT82. {A(L.K) »K=1 *3) .BID 
C 

DO  8  1=1 » 3 
DO  7  J=l,3 
SUM=0.0 
DO  9  L=1»LMAX 

9  SUM  =  SUM  +  A«L. :  ’.#A{L.  J) 

7  EMAT{ I . J) bSUM 
SUM=0.0 

DO  10  L=1,LMAX 

10  SUM=SUM  +  A«L. I )#B(L) 

8  FVEC« 1 .1)=SUM 
C 

PRINT6(' 

DO  81  1=1,3 

81  PRINT82. (EMAT( I . J ) , J= 1 , 3 ) , F VEC ( I , 1 ) 

32  FORMAK 10X6E2C,8) 

C 

CALL  MATINV<EMAT,3,FVEC,1 ,DETERM,P1 VOT.INDEX, IPIVOT) 

C 

DO  11  1=1,3 

11  C0NST(I)=FVIC(!,1) 

C 

DO  20  1=1,3 
20  XLAM( I )=C0NST ( I) 

PR INT903  ,XTAU, (XLAM( I )  ,1  =  1 »3! 

903  FORMATdHO/ 

1  IXllHTHICKNESS  =,  E16.8  / 

2  IXIIHALBEDOU)  =,  20HA  +  B*T  ANH  { 1 0*  (  X-C  )  )  // 

3  1X3HA  =,  E16.8,  10X3HB  =,,E16.8»  10X3HC  =,  E16.8  //) 
C 

CNEW  APPROXIMATION 
C 

M=1 
L  =  0 

DO  12  1=1, N 
DO  12  J=1,I 
L  =  L+1 

SUM=P(L,M) 

DO  13  K=l,3 

13  SUM  =SUM  +  C0NST{K)*H(L,K»M) 

12  R(L,M)=SUM 
L  =  C 

DO  14  1  =  1, N 
DO  lA  j=i ,  I 
L  =  !.+  l 

14  R2« I 5J)=R(L»M) 

SIG=0.0 

CALL  OUTPUT 


■L,V!4|i 
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C'O  50  M1  =  1»M1MAX 
DO  18  M2=1»NPRN^ 

M  =  M^■1 
L  =  0 

DO  15  I=1,N 
DO  15  J=1,I 
L  =  L-^1 

SUM=P(L»M) 

DO  16  K=l»3 

16  SUM  =  SUM  4-  CONST(K)*H(L»K»M) 

15  R(L»M)=SUM 

L  =  0 

DO  17  I=1»N 
DO  17  J=1,I 
L  =  L  +  1 

17  R2( I »J)=R(L.M) 

18  SIG=SIG  +  DELTA 
50  CALL  OUTPUT 

C 

RETURN 

END 

SIBFTC  OUTPUT 

SUBROUTINE  OUTPUT 
DIMENSION  X(3) 

COMMON  N»RT(7) ,WT(7) »WR(7) »;R(7t7) f NPRNT .MlMAX .KMAX »DELTA *XTAU» 

1  XLAM(3)»  B2 (7»7)  ,R2 (7»7) w IFLAG.R(28»101 ) ♦T(149l) jSIG* 

2  P(28,101)tH(23,3,101) tPLAM(3) »HLAM(3,3)  »P2(7f7)  , 

3  H2(7,7.3)  »C0NST(3)  »NE(3 
DO  1  I=ltN 

DO  1  J=ItN 
1  R2 { I  . J)=R2 ( J> 1 ) 

Y=XTAU*SIG 
DO  3  I =1*3 
3  X(I)=XLAM(I) 

CALL  ALBED0( Y,X»Z ) 

PRINTIOC,  SIGfYfZ 

100  FORMAT(1I-,0  7HSIGMA  =»F6.2*  4X5HTAU  =»  F6.2»  4X8HALBED0  =»F6.2/) 
DO  2  J=1,N 

2  PRINTlOlfJ, (R2(  I  ,J) »I  =  1,N) 

101  FORMAT(!lO»  7F10.6) 

RETURN 

END 

S.IBFTC  ALBEDO 

subroutine  AL6£D0( YfXfZ) 

DIMENSION  X(3) 

COMMON  N»RT ( 7 ) fWT( 7 ) »WR (7 ) »AR(7»7 ) » NPRNT ,M1MAX » KMAX » DELTA » XTAU » 

1  XLAM(3).  B2 (7,7)  ,R2 (7»7) » IFLAG.R(28»101 ) ,T( 1491 1 »SIG, 

2  P(28,101 ) »H(28,3,101 ) ,PLAM( 3) ,HLAM(3,3) »P2(7,7) , 

3  H2(7,7,3) »C0NST(3),NEQ 
ARG=10,0*(Y-X(3)  ) 

Z  =  X(1)  4-  X(2)*TANH(ARG) 

RETURN 

END 

SENTRY  RTINV 
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PROGEIAMS  FOR  RADIATIVE  TRANrFER: 
NOISY  OBSERVATIONS 
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PROGRAM  C.l.  ACCURATE  OBSERVATIONS  FOR  THE  DETERMINA^ 

~TlON  OF  Albedo  -  - 

The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 
ALBEDO  subroutine 
PANDH  subroutine 
LINEAR  subroutine 
NONLIN  subroutine 
OUTPUT  subroutine 

The  following  library  routines  are  required: 

MATINV 

INTS/INTM 


u  u  u 
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JIBFTC  RTINV 

COMMON  N.RT<7) ,WT(7) »WR(7) »AR(7»7) , NPRNT , Ml MAX » KMAX » DEL TA » X TAU » 

1  ZERLAM,XLAM{2  )  »B2  (  7*7)  »R2  (7*7)  ,  I  f-'LAG  fR  <  28  » lOl  )  »T<  1491  )  »SIG» 

2  P<28»101  )  »H(28»'i.l0i  )  .P  TAU.PLAM  (  2  )  .HTAUO)  .HLAM<2*3)  »P2  <7.7)  » 

3  H2(  7*7,3)  tCONSTO)  *NEQ 

PHASE  I 

1  READ1000,N 
PRINT899 
PRINT900,N 

READlOOl , <  RT  n ) , 1  =  1 ,N) 

PRINT901, <RT< I) ,I=1,N) 

READlOOl, <WT< I ) ,1=1 ,N) 

PRINT901, ( WT  n ) , 1*1 ,N) 

DO  2  1=1, N 
WR{  I  )=W'^<  I  )  /RT(  I  ) 

DO  2  J=1,N 

2  ARn,J)=  1.0/RT(I)  +  1.0/RT(J) 

899  FORMAT aHl46X36HRADlAT I VE  TRANSFER  -  INVERSE  PROBLEM  / 

1  47X33HI  .KNOWN  QUADRATIC  ALBEDO  FUNCTION  / 

2  47X27HUNKNOWN  THICKNESS  OF  MEDIUM  //) 
lOCO  FORMAT(6I12) 

900  FORMAT (61 20) 

1001  FORMAT (6E12. 8 ) 

9Cl  FORMAT{6E20.8) 

readiooc,nprnt,mimax,kmax 

PRINT900,NPRNT,M1MAX,KMAX 
READlOOl, delta 
PRINT901, DELTA 

R£ADlo01,XTAU,2ERLAM*XLAM{ 1 ) ,XlAM(2 ) 

PRINT902 

PRINT903,XTAU,ZERLAM,XLAM( 1 ) ,XLAM1 2 ) 

902  FORMAT ( 1H123HPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMATdHO/ 

1  IXIIHTHICKNESS  »,  F10.4  / 

2  1X11HAlBED0( X)  *,  F6.2»2H  +,  F6.2,3HX  ♦,  F6.2,4HX**2  //) 

CALL  NONLIN 

DO  3  1=1, N 
DO  3  J=1,N 

3  82{ I »J)=R2( I t J) 

C 

C 

C  PHASE  II 

C 

4  READ1v^01,XTAU,ZERLAM,XlAM(  1  )  ,XLAM(2) 

K  =  0 

PRINT904,K 

PRINT903»XTAU,ZERLAM,XLAM( 1  )  ,XLAM(2  ) 

C 

CALL  NONLIN 
C 

904  FORMAT! IHl  13HAPPR0XIMAT ION,  13/  ) 


non 
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C  QUASI  linearization  I  T  -  «  A  T  U.  N,. 

c 

DO  5  K1  =  1*K.MAX 
PRINT904,K1 
CALL  PANDH 
CALL  LINEAR 
5  CONTINUE 


READlOOO, IGO 
GO  TO  ( 1,4) . IGO 
END 
SIBFTC  DAUX 

SUBROUTINE  DAUX 

DIMENSION  V2(7,7) ,X(3) .F(7) ,G{7) 

COMMON  N,RT ( 7 ) ,WT ( 7 ) ,WR ( 7 ) ,AR ( 7  »7 ) , NPRNT , Ml  MAX , KMAX , DELTA , XTAU » 

1  2ERLAM,XLAM(2 ) » 02 ( 7 , 7 ) , R2 ( 7 , 7 ) . I  FLAG ,R I  28 . 101 ) » T  <149 1 ) , S I G , 

2  P(28,101),H(28.3,101) .PTAU»PLAM( 2 ) ,HTAU<  3 ) »HLAM( 2*3  )  .P2  <  7,7) » 
i  H2(7,7,3)  tCONSTO)  *N£0 

GO  TO  (1,2) »IFlAG 
C 

CNONLINEAR 

C 

1  L*3 

DO  4  I»1,N 
DO  4  J=1,I 
L-L  +  1 

4  V2(I,J)=T(L) 

DO  5  1=1, N 
DO  5  J=I,N 

5  V2( I  ,J)»V2(J*I  ) 

L  =  L  +  1 

VTAU=T (L) 

L  =  L  +  1 

VLAM1=T(L) 

L  =  L-^1 

VLAM2=T(L) 

SIG=T(2) 

Y=XTAU*SIG 

X( 1 )=2ERLAM 

X(2)=VLAM1 

X( 3)=VLAM2 

CALL  AL8E00( Y,X,Z) 

2LAMDA=Z 

C 

DO  6  I=1,N 
F( I )=0,0 
DO  7  X=1,N 

7  F(  I  )=F(  I  )  +  WR(IC)*V2(  I  ,X) 

6  F(  I  )=0.5*F(  I  )  -f  1.0 

DO  8  1=1, N 
DO  8  J=1,I 
L'L^-l 


c 


f'*  r» 
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DR  =  -ARn  *J)*V2(  I  ,J)  >  2LAMDA^»f- (  I  !  vf  ( j  ) 

8  T{L)=DR*VTAU 
DO  9  1=1,3 

L  =  L  +  1 

9  T{L)=0,0 
RETURN 


CLINEAR 

C 

2  SIG=T{2) 

Y=XTAU*SIG 
X{1)=ZERLAM 
X{2)=XLAM{ 1) 

X(3)=XLAM{2) 

CALL  ALBEDOt Y,X,Z) 

ZLAMDA=Z 

C 

DO  16  1=1, N 
F5 I )=0,0 
DO  17  K=1,N 

17  F(  n=F(  I  )  +  WR{K)*R2{  I  ,K) 

16  F{  n=0,5*F(  I  )  +  1.0 
C 

CP‘£ 

C 

L  =  3 

DO  14  1=1, N 
DO  14  J=1 , I 
L  =  L  +  1 

14  V?{I,J)=T'L) 

DO  15  I=1,N 
DO  15  J= I ,N 

15  V2 { I ,J)=V2 { J»  I ) 

L  =  L-H 
VTAU=T(L) 

L  =  L+1 

VLAM1=T{L) 

L  =  L  +  1 

VLAM2=T{L) 

C 

DO  10  1=1, N 
G{ I ) =0.0 
DO  10  K=1,N 

10  G{I)=G(I)  +  {  V2{  I  ♦O-RZt  I  tK.)  )*WR(  K) 

M^-3  +  NEO 
DO  12  1=1, N 
DO  12  J=1,I 
FIJ  =  F{  n*F{  J) 

CAPF  =  -AR{ I , J) *R2 ( I  * J)  +  ZLAMDA*FIJ 
T1=-XTAU*AR( I ,J) »{ V2n  *J }-R2{ I ,J)  ) 

T2  =  C,5*XTAU<^ZLAMDA*{F(  I)  *G  (  J  ) +F  {  J  )  *G  {  I  )  ) 
T?=VTAU*CAPF 

T4={VTAU-XTAU)*{XLAM{ 1 ) *Y+2 .0*XLAM < 2 ) *Y*»2 ) ♦F IJ 
PROD=XTAU»Y*FIJ 
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T5= I VLAM1-XLAM( 1 ) ) ♦PkGD 
T6=(VLAM?-XLAM(2 ) )*PRCD*Y 
M  =  M+1 

12  T(M) sTl+TZ+TS+TA+TS+Tb 

DO  19  1=1,3 
M=M+1 

19  T(M)*0,0 

C 

CH*S 

C 

DO  100  K=1 ,3 
C 

DO  24  1=1, N 
DO  24  J=1,I 
L  =  L  +  1 

24  V2(I,J)=T(L) 

DO  25  1=1, N 
DO  25  J=I ,N 

25  V2 ( I ,J)=V2 ( J* T ) 

L  =  L+1 
VTAU=T(L) 

L  =  L  +  1 

VLAM1=T(L) 

L  =  L  +  1 

VLAM2=T(L) 

C 

DO  20  1  =  1  ,N 
G ( I ) «0  ,C 
00  20  J=1,N 

20  G{I)=G{I)  +  V2{ I ,J J*WR{ J) 

C 

DO  22  1=1, N 
DO  22  J=1,I 
FIJ=F ( I )*F { J) 

CAPF=-ARn , J)*R2{ I ,J)  +  ZLAMDA#FIJ 
T1=-XTAU*AR{ I ,J)*V2{ I ,J) 

T2=0.5*XTAU*ZLAM0A#{F{ I ) *0 ( J ) +F ( J } ( I ) ) 

T3=VTAU#CAPF 

T4=VTAU*(XLAM{ 1 )*y+2.0*XLAM<2 )*Y*«2 )*F IJ 

PROD=XTAU*Y*FIJ 
T5=VLAM1*PR00 
T&=VLAK2*PR0D*Y 
M  =  M+1 

22  T(M)  =  T1  +  T2  +  T3+T4-»-T5  +  T6 
C 

DO  29  1=1,3 
MrM+l 

29  T(M)=0,0 

100  CONTINUE 
RETURN 
END 

SIBFTC  albedo 

SUBROUTINE  ALBEDO ( Y  ,  X  ,  Z ) 

DIMENSION  X(3) 

COMMON  N,RT(7) ,WT(7) ,WR(7) ,AR(7,7) » NPRNT ,M1MAX , KMAX , DEL TA , XTAU , 


r»  o  ri 
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1  ZERLAM.XL  AN"  {  2  )  .l:?  (  7 , 7  )  ,R2  (  / ,  '  }  .  !  '  u-'-f  *  R  (  2  8  » 1  C 1  )  ♦  T  (  1 49 1  )  ♦  S  I  G  » 

2  P  {  26  »101  )  *M  (  2b  .  3  .  101  )  .PTA  !  2  1  »l-TAU  (  3  )  »HLAM  (  2  » 3  )  ♦  P2  (  7  »  7  ) 

3  H2{7.7,3)  *COMST(3')  »N£a 

Z  =  X(1)  +  X(2)»Y  +  X(3)*Y*^^2 

RETURN 

END 

SIBFTC  PANDH 

SUBROUTINE  PANDH 

CO^;KON  N,RT(7)  ,WT(7) »WR(7) »AR(7»7)  . NPRNT » MIMAX » KMAX , DEL TA t XTAU 

1  ZERLAM,XLAM( 2 ) . B2 ( 7 . 7 ) . R2 ( 7  » 7 ) ♦ I F LAG . R ( 2 8  » 1 01 )»T(1491)»SIG» 

2  P(28.101).H(28»3»101) »PTAU.PLAM( 2 ) .HTAU( 3) .HLAM(2  »3) ♦P2 ( 7.7 ) 

3  H2(7»7,3) »C0NST(3) »NEO 
IFLAG=2 

T(2)=L.O 

T(3)=DELTA 

M=1 

C  P'S 

c 

L1=0 
L3  =  3 

DO  1  1=1, N 
DO  1  J=1,I 
L1=L1+1 
L3=L3+1 
P(L1»M)=0.0 

1  T(L3)=P(L1 ,M) 

L3=L3+1 
PTAUsO.C 
T(L3)=PTAU 
DO  2  1=1,2 
L3=L3+1 
PLANK  I  )=0.0 

2  T(L3)=PLAM(  I  ) 

H'S 


DO  7  K=l,3 
L1=0 

DO  3  1=1, N 
DO  3  J=1,I 
L1=L1+1 
L3=L3+1 
H(L1 ,K,M) =0*C 

3  T(L3)=H(L1»K,M) 
C 

I  3  +  1 

H-  .0=0.0 
IF(K-1 )5,4,5 

4  HTAU(K)=1.0 

5  T(L3)=HTAU(K) 

DO  7  1=1,2 
L3=L3+1 
HLANK  I  ,0=0.0 
IF(K-I“1 ) 7,6.7 

6  HLANK  I ,K)  =  1.0 
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7  T(L3)=HLAM( I  ♦<) 

C 

l,  =  0 

DO  8  1=1, N 
DO  6  J=1,I 
L  =  L  +  1 

8  R2( I »J)=R(L»M) 

DO  9  I=1,N 

DO  9  J=I ,N 

9  R2 ( I ♦J)=R2 { J»  I  ) 

NEQ=4*( (N*(N+i) )/2  +  3) 

CALL  INTS( T»NEQ,2»0»0»0»0,0.0) 

C 

DO  5C  M1=1,M1MAX 
DO  50  M2=1,NPRNT 
CALL  INTM 
M  =  M+1 

CPREV. APPROX.  R( I » J) 

L1  =  C 

DO  10  1=1 fN 
DO  10  J=1,I 
L1=L1+1 

10  R2( I »J)=R(L1»M) 

DO  11  I=1,N 

DO  11  J= I fN 

11  R2 ( I ,J)=R2 ( J»  I  ) 

L1  =  C 

L3  =  3 

DO  12  1  =  1, N 
DO  12  J=1,I 
L1=L1+1 
L3=L3+1 

12  P(L1,M).  u3S 
L3=L3+3 

DO  13  K=l,3 
L1=C 

DO  14  1  =  1, N 
DO  14  J=1,I 
L1=L1+1 
L3=L3+1 

14  H(L1,K,M)=T(L3) 

13  L3=L3+3 
50  CONTINUE 

RETURN 

END 

SIBFTC  LINEAR 

subroutine  linear 

DIMENSION  CHKIO) 

DIMENSION  A(49,3I  ,B(49)  ,EiMAT(50,50)  ,  PI  VOT  (  50  )  ,  INDEX  (  50 .2  ) 

1 ,IPIVOT(50) ,FVEC(50,1) 

COMMON  N,RT(  T  )  ,WT(  7  )  ,WR(  7  )  ,AR  (  7,7  )  ,NPRNT  ,M1MAX  ,.<MAX  ,  DELTA  ,  XTAU  , 

1  ZERLAM,XLAM(2 )  ,62(7,7)  ,R2( 7,7) ,  I  ^LAG 9R ( 28 , lOl ) , T ( 1491 ) , S I G , 

2  P(28,101) ,H(28,3, 101 ) ,PTAU,PLAMl2 ) ,HTAU(3) ,HLAM(2»3) ,P2(7,7> , 

3  H2(7,7,3) »CONST(3) »NEQ 
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CBOuNDAt-Y  CONDI  T  10, ’iS 

MLAST=NPRNT*M1MAX  +  1 
DO  1  K=1.3 
L  =  C 

DO  2  1=1. N 
DO  2  J=1.I 
L  =  L  +  1 

2  h: ( I .J.K)=H(L.K.MLAST) 

DO  1  1=1, N 

DO  1  J=I,N 

1  H2 ( I .J.K)=H2( J. I .K) 

L  =  u 

DO  3  1=1, N 
DO  3  J=1,I 
L  =  L  +  1 

3  P2( I ,J)=P(L,MLAST) 

DO  4  1=1, N 

DO  4  J=I ,N 

4  P2( I  ,J)=P2( J,I  ) 

CLEAST  SQUARES 

DO  5  K=1,3 
L  =  C 

DO  5  1=1, N 
DO  5  J=1,N 
L  =  L  +  1 

5  A(L,K)=H2( I »J,K) 

L  =  U 

DO  6  1=1, N 
DO  6  J=1,N 
L  =  L  +  1 

6  3(L)=32( I ,J)  -  P2( I »J) 

C 

|_K,AX  =  N**2 
PRINT6G 

6C  FORMAT (IHC) 

DO  61  L=1,LMAX 

61  PRINT82, (A(L,K) ,K=1  ,3) ,B(L) 

C 

DO  8  1=1,3 
DC  7  J=l,3 
SUM=0.0 
DO  9  L=1,LMAX 

9  SUiM=SUM  +  A(L,I)#A(L,J) 

7  EMAT( I  ,J) *SUM 
SUM=0.0 

DO  10  L=1.,LMAX 
10  SUM=SUM  +  A(L, I )*B(L) 

8  FVtC( I ,1 ) =SUM 
C 

PRINT60 
DO  81  1-1,3 

81  PRINT82, ( EMAT( I , J) , J=1 ,3 ) ,FVEC( 1,1) 

82  FORMAT! 10X6E20. 8) 

SAVE  FOR  THECKING 


n  r»  rt  n  r»  r» 
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do  83  1=1*3 
DO  84  J=l*3 
84  A(  I  .J)=EMATU  ♦J) 
83  B( 1 )=FVEC( I *1) 


CALL  MATINVt  EMAT .3*FVEC* 1 ♦□£ 1 ERK . P 1 VOT , I NO£X , I P I VOT ) 

DO  11  1=1,3 

11  CONSK I )=FVEC( I »1 ) 

C^'“CK  MATRIX  INVERSE 

PRIN160 
DO  71  1=1,3 
DO  70  J=l,3 
CHKI ( J)=0.C 
DO  70  L=l,3 

70  CHKI  (  J)=CHKl  (  J)  EMAT  (  I  ,L  )  *A  (  L  ,  J  ) 

71  PRINT82, (CHKI (v) ,0=1,3) 

C 

DO  72  J=l»3 
CHKI ( J)=0.0 
DO  72  L=l,3 

72  CHKI  (  J)=CHKI  (  J)  EMAT(J,L)*B(L) 

PRINT82, (CHKI  ( J) ,J=1,3  ) 

C 

XTAU=CONST ( 1 ) 

XLAM( 1 ) =CONST ( 2 ) 

XLAM(2)=C0NST(3) 

PRINT903,XTAU,2ERLAM,XLAM( 1  )  ,XLAM(2 ) 

903  FORMAT (IHO/ 

1  IXllHTHlCKNESS  =,  FlO.4  / 

2  iXlZHALBEDOi  V  )  =  ,  F6.2,  17n  +  Cl*X  +  C2*X^f*2, 

3  2X3HC1=,  El8*o,  2X3HC2=,  E18.6//) 

C 

CNFW  APPROXIMATION 
C 

M=1 
L  =  C 

DO  12  1  =  1, N 
DO  12  J=1  ,  I 
L  =  L+1 

SUM=P(L,M) 

DO  13  K=l,3 

13  SUM  =SUM  +  CONST(K)*H(L,K,M) 

12  R(L,M)=SUM 
L  =  0 

DO  14  1=1, N 
DO  14  J=l,  I 
L  =  L-»-l 

14  R2 ( I , J)=R( L,M} 

SIG=0.0 

CALL  OUTPUT 
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do  50  Ml=ltMlMAX 
DO  18  M2=ltNPRNT 
.V  =  M+1 
L  =  0 

DO  15  I=lfN 
DO  i5  J=1»I 
L  =  L+1 

SUM=P(LtM) 

DO  16  K=lt3 

16  SUM=SUM  +  C0NST(K)»H(L»K»M) 

15  R(LtN')=SUM 

L  =  0 

DO  17  1=1 »N 
DO  17  J=lt: 

L  =  L  +  1 

17  R2( I .J)=R(L»M) 

18  SIG=SIG  +  DELTA 
50  CALL  OUTPUT 

C 

RETURN 

END 

SIBFTC  NONLIN 

SUBROUTINE  NONLIN 

COMMON  N»RTI7)  fWT(7) *WR(7 J  tAR(7.7) . NPRNT .MiMAX . KMAX . DELTA . XTAU . 

1  ZERLAMf XLAM(2 ) f 62 ( 7 f 7 ) t R2 ( 7  » 7 ) . I  FLAG .R ( 28 ♦ 1  Cl ) ♦ T ( 1491 ) ♦ S I G . 

2  P(28fl01)fH(28.3fl01) t PTAU .PLAM ( 2 ) .HTAUO) .HLAM(2*3) fP2(7»7) ♦ 

3  H2(7t7,3) fCONST(3)»NEQ 

C  NONLINEAR  D.E.  FOR  TRUE  SOLUTION  OR  FOR  INITIAL  APPROX. 

C 

IFLA6=1 
T ( 2 ) =0.0 
T<  3)=DELTA 
M  =  1 
L1=0 
L3  =  3 

DO  1  1=1, N 

DO  1  J=1,I 

L1=L1+1 

L3=L3+1 

R2I I ,J)=0.0 

R ( LI ♦M)=R2 ( I ♦ J) 

1  T(L3)=R2( I , J) 

L3=L3'rl 

T(L3)=XTAU 

DO  2  1=1,2 
L3=L3+1 

2  TIL3)=XLAMI I ) 

C 

NEQ=(N*(N+1 ) )/2  +  3 

CALL  INTS(T,NEQ,2»0,0t0*0,0,0) 

C 

5IG=T(2) 
call  OUTPUT 
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DO  5  N'l  =  1  .yr-iAx 
DO  4  M2=1*NPR\T 
CALL  IiNTM 
y  =  M+i 
Ll=^ 

L3  =  3 

DO  3  I =1 *N 

DO  3  J=1 , I 

L1=L1+1 

L3=L3+1 

R2  (  I  y J  )  =  T ( L3  ) 

3  R(L1 »M)=R2( 1 *J) 

4  S1G=T(2) 

5  CALL  OUTPUT 
C 

RETURN 

END 

SIBFTC  OUTPUT 

SUBROUTINE  OUTPUT 
DIMENSION  X(3) 

COMMON  N»RT  (  7  )  yWT  (  7  )  w-'R  (  7  )  *  AR  (  7  ♦  7  >  >NPPNT  yMlMAX  ♦KMAXtOELTA  .XTAU  ♦ 

1  ZERLAM,XLAM( 2 ) »B2 ( 7 .7)  ,R2 ( 7  »7 ) . IFL^GyR ( 28» 101 ; tT ( 1491 ) *510, 

2  P(2e»101)»H(28»3»101l yPTAUtPLAM (2  >  *hTAU(3 ) tHLAM ( 2 ♦ 3 ) ♦ P2 ( 7 ♦ 7 ) ♦ 

3  H2( 7 ,7, 3 ) tCONST ( ^ ) tNEO 
DO  1  I=1»N 

DO  1  J=I»N 
1  R2 ( I » J!  =  R2 ( J»  I  ) 

Y=XTAU*SIG 
X ( 1 ) =2ERLAM 
X( 2 )=XLAM(  1  ) 

X(3)=XLAM(2) 

CALL  ALBEDO! Y  ,X  ,Z ) 

PR  I  NT  ICO,  SIG,Y,Z 

100  FGRMATIIHO  7HSIGMA  =,F6.2»  4X5HTAU  =,  F6.2»  4X8HALBED0  =*F5.2/) 
DO  2  J=i»N 

2  PRINTlOl ,J, ( R2 ( I . J ) » I =1 »N) 

101  FORMAT(I10,  7F10.6) 

RETURN 

END 

SENTRY  RTI,<V 

7 


25446046E-01  12923441E-OO297C7742E-OO5V.OO0C0CE  ''070292258E  0037076559E  00 
97455396E  OO 


64742434E-0i  1398 5269E-00 19091 5C2E -00206  9795 3E-C 01 9091 S02E-0013985269E  -CO 
64742484E— 0 1 


1  0 
u  .  0  1 

lO 

1.0 

0.5 

1.0 

0.5 

c 

2.0  -2.0 

2.0  -2.0 


03 
0  3 
00  3 
0033 


544 


CNJ 


-225- 


PROGRAM  C.2.  OBSERVATIONS  FOR  ONLY  ONE  ANGLE  OF_INCIDEN^, 
FOR^^fm'ISETEMrNATION  OF  'SLBEDO  " 

A  partial  program  is  listed: 

MAIN  program 

LINEAR  subroutine 

The  following  subroutines  are  required  from  Program  C.l: 
DA*UX  subroutine 
ALBEDO  subroutine 
PANDH  subroutine 
NONLIN  subroutine 
OUTPUT  subroutine 

The  following  routines  are  required: 


MATINV 

INTS/INTM 


noon  o  non 
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*  l^fTC  .rTr'k/  _Iw” 

COMy.0'4  iN  ♦  R  T  (  7  )  ♦  .'I  T  i  7  )  »  ...-x  i  7  1  ♦  -  '  .  “  •  '  ♦  :  1  MAX  »  Si’*' A  X  » w  i t~  i  A  »  X  7  A * 

1  ZERLAM»XLAM( 2  >»b2(7»7)»R2(7.7)*iFLAG.R{2d»lCl)»T(1491)»SIG» 

2  P(28»101)»H(28»3.101)  »PTAo»PLAy.  (  2  )  *hTAU  (  3  )  vriLAM  (  2  »  3  )  » P2  (  7  » 7  )  » 

3  H2(7.7.3) ♦C0NST(3) ♦NEQ 

4  »NINC.JINC(7) »NOBS 

PHASE  I 

1  READluOG»N 
PRINT899 
PR INT900 ,N 

READIOO] , ( RT ( I )  .  1  =  1  .N) 

PR INT901 , ( RT ( I ) .I=1.N) 

READluOl , (WT ( I )  .  1  =  1  .N) 

PRINT901. (WT( I ) .I=1»N) 

DO  2  1=1. N 

WR ( I ) =WT ( I ) /RT( I ) 

DO  2  J=1.N 

2  AR(I.J)=  l.U/RTd)  +  1.0/RTiJ) 

699  format ( 1H146X36HRADIAT iVE  TRANSFER  -  INVERSE  PROBLEM  / 

1  47X33HUN<N0WN  QUADRATIC  ALBEDO  FUNCTION  / 

2  47X27HUNKN0WN  THICKNESS  OF  MEDIUM  //' 
lOoU  F0RMAT(6I12) 

90U  FORMAT(6I20) 

1001  format (6E12. 8 ) 

901  FORMAT(6E20.8 ) 

READlvOO.NPRNT.MlMAX.KMAX 
PR INT900,NPRNT .MIMAX .KMAX 
READlOOl .DELTA 
PRINT901. DELTA 

READlOOl ,XTAU.ZERLAM.XLAM( 1 ) .XLAM(2 ) 

PR  INT9C2 

PRINT9C3.XTAU.ZERLAM.XLAM( 1 ) .XLAM(2 ) 

902  FORMAT ( 1H123HPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMAT! IHO/ 

1  IXIIHTHICKNESS  =.  FlO.4  / 

2  IXIIHALBEDO(X)  =.  F6.2.2H  +.  F6.2.3HX  +.  F6.2.4HX**2  //) 
.call  NONLIN 

DC  3  I=1.N 
DO  3  J=1.N 

3  B2 ( I . J)=R2  (  I  .  J) 


PHASE  II 

4  READlv^Ol  .XTAU.ZERLAM.XLAM!  1  )  .XLAM  (  2  ) 
K  =  0 

PRINT904.K 

PRINT903.XTAU.ZERLAM.XlAM( 1  )  .XLAM ( 2  ) 

READiUOO.NINC 

PRINT900.NINC 

READluOO. ( JINC( I ) . I =1 .NINC / 
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PRINT9C0. ( JI NC (  I  )  » I  =  1  ,N1 NC  ) 

NOBS=NINC*N 

PRINT900,NOBS 

C 

C 

CALL  NONLIN 
C 

904  FORMATdHl  1  3HAPPf?0X  I  MAT  I  ON  .  13/  ) 

C 

C  OUASILINEARIZATION  ITERATIONS 

C 

DO  5  Kl  =  i,.<MAX 
PRINT904,K1 
CALL  PANDH 

call  Linear 
5  CONTINUE 
C 
C 
C 

READIOOO, IGO 
GO  TO  ( 1»4) ♦ IGO 
END 

SIBFTC  LINEAR  LIST 

SUBROUTINE  LINEAR 
OI^'ENSION  CHKI(3) 

DIMENSION  A(49»3 ) ♦B(49) .EMAT( 5jt50) »  P I VOT ( 50 ) » I NOEX ( 50 t2 ) 

If IPIVOT(50) fFVEC(50fl) 

COMMON  N  tRT ( 7 ) f WT ( 7  )  fWR ( 7 ) f AR ( 7  »7 ) .NPRNT  tMlMAX  fKMAX f DELTA  tXTAU t 

1  ZERLAM,XLAM(2 ) fB2(7f7} fR2(7.7) . I  FLAG tR ( 28 f 101 ) »7(1491) fSIGf 

2  P(26,101)fH(28f3fl01) i PTAUf PLAM ( 2 ) »HTAU( 3) fHLAM(2f3) fP2(7f7) f 

3  H2(7.7.3) tC0NSr(3) fNEQ 

4  fNINC. JINC(7) fNOBS 
CBOUNOARY  CONDITIONS 

MLAST  =  NPRNT*M1MAX  1 

DO  1  K=l,3 
L  =  G 

DO  2  I=1«N 
DO  2  J=lfl 
L=L  +  1 

2  H2 ( 1 f JfK) =H( LfK.MLAST) 

DO  1  1=1. N 

DO  1  J=I .N 

1  H2 ( I f JfK) =H2 ( J. I fK) 

L  =  0 

DO  3  I=lfN 
DO  3  J=lfl 
L  =  L  +  1 

3  P2 ( I t J)=P(LfMLAST) 

DO  4  I=lfN 

DO  4  J= I f N 

4  P2( I fJ)=P2( Jf  I  ) 

CLEAST  SQUARES 

DO  5  K=l,3 
L  =  0 


or»o  o  r»r\  or»o 
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do  5  IN=1»NI.\C 
I =JINC ( IN ) 

DO  5  J=1»N 
L  =  L+1 

5  A{L»K)=H2( I »J»K) 

L  =  C 

DO  6  IN=1>NINC 
I=JINC( IN) 

DO  6  J=il»N 
L  =  L+1 

6  B(L)=B2( I » J)  -  P2< I »J) 

LMAX=N**2 

PRINT60 

60  FORMAT (IHO) 

DO  61  L=1»N0BS 

61  PRINT82* IA(L«K) .K=l «3) fSIL) 

DO  8  1=1.3 
DO  7  J=1.3 
SUM=0.0 
DO  9  L=1.N0BS 
9  SUM=SUM  +  A(L.I )*A(L»J) 

7  EMAT(  I  .JlsSUM 
SUM=0.0 

DO  10  L=1 .NOBS 
10  SUM  =  SUM  +  A(L.  I )*8<L) 

8  FVEC( I  .1 ) =5UM 

PRINT60 
DO  81  1=1.3 

81  PRINT82. (EMAT { I . J ) . J= 1 . 3 ) .F VEC ( I . 1 ) 

82  FORMAT! 10X6E20. 8) 

SAVE  FOR  CHECKING 

DO  83  1=1.3 
DO  84  J=1 . 3 
84  A( I .J)=EMAT( I .J) 

83  B( I )=FVEC(  1  *1  ) 


call  matinv(Emat.3.fvec.i .oeterm.pi vct ♦ Index. I  PIVOT ) 

DO  11  1=1.3 
11  CONST! I )=FVEC( I .1 ) 

CHECK  MATRIX  INVERSE 

PRINT60 
DO  71  1=1.3 
DO  70  J'^1.3 
CHKI ! J)=0.0 
DO  70  L=1.3 

70  CHKI ! J)=CHKI ! J)  +  EMAT ! I . L ) *A ! L  .  J  ) 
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71  PRINTb2»(CH^;l  (  J) 

C 

DO  72  J=l»3 
CHKI ( J)=0.0 
DO  72  L=l»3 

72  CHKI ( J)=CHKI( J)  +  EMAT(J»L)*d(L) 

PRINT82» (CHKI (J)  ♦J=l»3) 

r 

Sm 

XTAU  =  CONST (  1  ) 

XLAM( 1 ) =CONST ( 2  ) 

XLAMI 2 ) =CON5T ( 3 ) 

PRINT9C3»XTAU»2ERLAM»XLAM(  1  )  ♦XLA,M(2  ) 

903  FORMAT (IHO/ 

1  1X1 IHTHICKNESS  =♦  E18.6  / 

2  1X12HALQE00( X i  =  ♦  F6-2.  17ri  +  Cl»X  +  C2*X*»2* 

3  2X3HC1  =  »  E18.6»  2X3HC./=»  F18.6//) 

C 

CNEW  APPROXIMATION 
C 

M=l 
L  =  o 

DO  12  1  =  1  fN 
DC  12  J=1  .  I 
L  =  L+1 

SUM  =  P  (  L  ) 

DO  13  K=1  ♦  3 

13  SUM  =SUM  +  CONST (K)*H(L»K»M) 

12  R(L»M)=S'JV, 

L  =  V 

DO  lA  1  =  1  tN 
DO  14  J=1 »  I 
L  =  L  +  1 

14  R2 ( I .J)=R( L»M) 

S  I  G  =  0  •  C 

CALL  OUTPUT 

/• 

DO  5C  Ml  =  l,iMlMAX 
DO  18  M2=ltNPRNT 
y  =  v>l 
L  =  - 

DO  15  I=1.N 
DO  15  J=1»I 
L  =  L  +  1 

S^A’  =  P(L»M) 

DC  16  K=l»3 

16  SUM  =  SJM  +  CONST ( K ) *H( L »< fM  ) 

15  R(l»M)=SJM 

I 

DO  17  1  =  1  »N 
DC  17  J=1*I 

L  =  L  +  1 

17  R2  (  I  » J  1  =R  .  »M) 

13  SIG=SIG  +  DELTA 
50  CALL  OUTPUT 


RETURN 

END 
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PROGRAM  C.3.  ERRORS  IN  THE  OBSERVATIONS  FOR  THE  DETERMINA- 

tI5n  of  Albedo 

A  partial  program  is  listed: 

MAIN  program 

The  following  subroutines  are  required  from  Program  C.  1 
DAUX  subroutine 
ALBEDO  subroutine 
PANDH  subroutine 
NONLIN  subroutine 
OUTPUT  subroutine 

The  folliwng  subroutine  is  required  from  Program  C.2: 
LINEAR  subroutine 

The  following  library  routines  are  required: 

MATINV 

INTS/INTM 


W  O'  w 
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i  J 0  2  ft  T  ^  »  • 

iluJOB  RT1NV2  MAP 
ilBFTC  RTI.NV  LIST 

DIMENSION  DERR » 7 , 7 )  *C2 ( 7 ♦ 7  ) 

COMMON  N»RT  (  7  )  »  w'.T  (  7  )  ♦  a'R  (  7  )  » AR  {  7  »  7  '  *\PRNT  »M1MAX  »K.MAX  »l)ELTA  »XTAU  ♦ 

1  Z ERL AM. X LAM ( 2 ) . b2 ( 7 . 7 )  . R2 ( 7  7  )  .  I F LAG  .  R ( 2 8 . 1 01 )  .  T ( 1 49 1 )  .  S I G  . 

2  P(26»101)»H(28.3»1G1) .PTAO  »PLAM  t  2 ) »HTAU ( 3 ) .HLAM I  2  »3 )  ♦PZ I  7 .7  )  » 

3  H2(7.7,3) .CONST(3) fNEQ 

4  .NINC.JINCi7) .NOBS 

PHASE  I 


1  READibOO.N 
PR  I NTe99 
PRINT900  .N 

READluOl . ( RT ( I ) . I =1 .N) 

PRINT901 . ( RT ( I ) . 1=1 .N) 

READlPOl . ( WT  f I )  .1  =  1 .N) 

PRINT901 . ( WT ( I ) .I=1.N) 

DO  2  I =1 .N 

‘a'R(  I  )  =WT(  1)  /RT(  I  ) 

DO  2  J=1.N 

2  AR(I.J)=  1.0/RT(n  +  1.0/RT(J) 


899  FORMAT { 1H146X36HRADIAT IVE  TRANSFER  -  INVERSE  PROBLEM  / 

1  47X33HUN.<!N0WN  QUADRATIC  ALBEjO  FUNCTION  / 

2  47X27HUNKNOWN  THICKNESS  OF  MEDIUM  //) 
lOSu  F0RMAT(5I12I 

900  format (61 20) 

1001  F0RMAT(6E12.6  ) 

901  format (6E20. 8  ) 

READl ^00 .NPRNT .MlMAX.KMAX 
PRINT9l'J  .NPRNT  .MIM.AX.KMAX 
RFADlOOl .delta 
PR INT9ul .DELTA 


C 

c 

r 


READING  1  .XTAU.Z£RLAM.XLAK(  1  )  .  XlA  (  2  ) 

PRINT9G2 

PR  I  NT903  »XTAU  .ZERLAM.XLAM  {  1  )  .  X.lAM  (  2  ) 

902  format ( 1H123HPHASE  I  -  TRUE  SOLUTION  /) 

903  FORMAT (IHC/ 

1  I XIIHTHICKNESS  =.  FlO.4  / 

2  1X1  1HALcjEDO(  X )  =.  F6»2.P‘  + .  F6.2.3HX  +. 

CALL  NONLIN 

DO  3  I  =1  .N 
DO  3  J=1.N 
3  52( I .J)=R2( I .J) 


PHASE  II 


F6.2 .4HX**2 


C 


4  READl^Ol .XT AU. ZERLAM.XLAM ( 1 ) .XLAM( 2  ) 
K  =  U 


PRINT9C4.K 

PRINT903.XTAU.ZERLAM.XLAM(1).XLAM(2) 


//  ) 


no  r^  r\  r^t  rt  ni  r\  n  rt  n  n  n  n  n  n  n  n  n  n 
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READloOO ,N  r.C 
PR INT90C  »NINC 

READl^OO,  (  JINC.’  I  )  »  I  =1  ,,\I  ,\C  ) 
PR  INT9U0  ♦  {  JINC{  I.)  »  I  =  1  »NINC  > 
NOBS  =  NINC^»N 
PRINT900»N0BS 


READ  ERRORS  AS  DECIMALS 


DO  6  I=1»NINC 

READl 001 ♦( DERR ( I tJ) ♦J=1»N) 

6  PR INT9U1 , ( 0ERR( I . J ) .J=l  .N ) 

STORE  CORRECT  03SE RVA  T  I  0,\^ 

DO  7  1=1, N 
DO  7  J  =  l,,>l 

7  C2{ I ♦J)=B2{ I tJ) 

CORRUPT  0BSERVATI0\5 

PR INTICC 

DO  81  IN=1»NINC 

I=JINC( IN) 

DO  6  J=1,N 

8  B2{I,J)  =  R2{I»J)*{ 1.0+DERR(  IN,J)  ) 

81  PRINTS  01 , I , ( B2{ I , J)  »J*1 ,N  ) 

IOC  format (IHO) 

ICi  FORMAT! 1 10, 7F 10.6) 


CALL  NONLIN 

9v.4  FORMATdHl  1  3HAPPROX  IMAT  I  DM  ,  13.'  ) 

QUASILI  NEARUATION  HERAT  lONo 

DO  3  K1=1,KMAX 
PR INT9o4,K1 
CALL  PANDH 
CALL  LINEAR 
5  CONTINUE 


RESTORE  CORRECT  ObSERVATIONS 

DO  9  1=1, N 
00  9  J=1,N 
9  C2 { I ,J)=C2 i I , J) 


GO  TO  4 
END 
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iENTRY  RTI.W 

7 

2  ?>4i*6046E”01  12923441-:-:’^^  v:’C7742t-.  vJ-:,  '.'v'E  r070292258E  0087076559E  CO  032 

9  7^5d396£  Oo 

64742h8AE-C  1  1396  52  69 E-001  909  1302 E -^0  2 >.  £5^79 spc-r 01  9C91  502  E-00  1398  526  9E-00  00  2 

64742984E-C1 

10  10  3 

0.01 

1*0  0,5  2.0  -2,0 

1*0  0,5  2.0  -2,0 

1 

4 

“,003740  +*017960  -.054560  +.0C0400  '-,024000  -.016980 

-.007740 
S I8SYS 


124 
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)32 
)  2 


PROGRAM  C.4.  MINIMAX  CRITERION  FOR  THE  DETERMINATION  OF 

A  partial  program  is  listed: 

LINEAR  subroutine 

The  MAIN  program  is  required  from  Program  C.2. 

The  following  subroutines  are  required  from  Program  C.l: 
DAUX  subroutine 
ALBEDO  subroutine 
PANDH  subroutine 
NONLIN  subroutine 
OUTPUT  subroutine 

The  following  library  routines  are  required: 

MATINV 

INTS/INTM 


.(liteiilii ' 


ono  oonr* 
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26'^V»RlI%\,M»n<C16  t 
SIBFTC  LINEAR  LIST 

SUBROUTINE  LINEAR 

DIMENSION  INF1X(8).AS(22»35)*ESI22)*T0L(4)  .KOUT (7)  .ERR(8!  »JH(22)  » 
1  XS(22)*PS(22)*.Y3(22)»KB(35)»E5(22«R2)*2S(35)»A(7.3)»B{7) 

COMMON  ,V,RT(7  1  ,WT(7)  ♦WR(7)  >AR(7»7)  ♦  i  JPRNT  ,M1  MAX  » K.MAX  » DEL  TA  »  XTAU  . 

1  ZERLAM,XLAM(2)  .d2(7»7)  .R2 (7>7)  ,  I  F LAG  .  R ( 2 8 . 1 0 1 )  » T ( 149 1 ) . S I G , 

2  P(28.101)»H(28»3»10n  ♦PTAU*PLAM  (  2  )  ♦HTA'JI  3  )  .HLAMi  2  » 3  )  ♦  P2  (  7 . 7  )  ♦ 

3  H2 ( 7 .7. 3 ) »CONST ( 3  )  tNEQ 
.NINC,JINC(7) .nobs' 

C 

USE  LINEAR  PROGRAMMING  TO  MINIMIZE  MAXIMUM  DEVIATION 


BOUN 


3 

4 


ARY  CONDITIONS 
MLAST=NPRNT*M1MAX  +  1 
DO  1  K=i,3 
L  =  U 

DO  2  I-l.N 
DO  2  J  =  1  .  I 
L  =  L+1 

H2 ( I . J.K) =H( L.K.MLA^T i 
DO  1  1=1. N 
DC  1  J=I.N 
H2 ( I .J.K) =H2 ( J.  I  .K) 

L  =  u 

DO  3  I=1,N 
DO  3  J  =  l.  I 
L  =  L  +  1 

P2( I .J)=P(L.MLAST) 

DC  4  I =1  ,N 
DO  4  J=I.N 
P2 ( I .J }=P2 ( J.  I  ) 


ZERO  ALL  AS.  8S 

DC  7  1=1.22 
BS ( I ) =0.0 
DO  7  J=1.35 
~  ASn.J)  =  0.0 

COLUMNS  1-6 

IN=JINC( 1 ) 

DC  8  I--2v8 
DC  £  <=1.3 
Jl=2*<-1 

AS(  I  .Jl)=H2nN.I-l.K)  /  B2(IN.1-1) 
J2  =  J1+  1 

8  AS( I .J2 )=-AS(  I  .J1  ) 

DO  9  1=9.15 

11  =  1-7 
DO  9  J=1.0 

9  AS(  I  .J)=-ASU  1. J} 


r\  rir»r»  nrio  ooo  non 
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do  6  I=2»8 

6  BS(I)=1.0  -  P2( IN» I-l ) /32 ( iK* i-1 ) 

DO  66  1=9.15 
66  BS( I ) =-BSi  1-7  ) 

COLUMN  7 

AS(1.7)=1.0 
DO  10  1=16.22 

10  AS(I.7)=-1.0 
DO  91  1=1.22 

91  PRINT94.  I  .  (A5(  I  ..J)  .J=l  .7  )  .B(  I  ) 

94  FORMAT ( 1H04X1 5.8E15.6 > 

90  FORMAT (1H04X I  5  WE  15. 6/ (10X7  El  5.6)  ) 

COLUMNS  8-28 

DO  11  J=8.28 
I=J-6 

11  AS(I.J)=1.0 
DO  92  1=1.22 

92  PRINT90. 1  .  (  ASd  .  J)  .  J  =  8 .28 

COLUMNS  29  -  35 
DO  19  J=29.35 

L=J-28 

I 1=L+1 
I2=L+8 
I3=L+15 
ASCII .J) =-1.0 
AS! I2.J)=-1.0 
19  AS( I3.J)=+1.0 
DO  93  1=1.22 

93  PRINT9C.I .(AS( I .J)  .J  =  29.35) 

INPUT  TO  SIMPLX  (RAND  LIoRARY  ROUTINE  a'0C9) 


INFIXCl  )=4 
INFIX{2)=35 
INFIX ( 3)  =22 
INFIX ( 4) =22 
INFIX (5) =2 
INF  IX ( 6  )  =  1 
INFIX ( 7 ) =100 
INFIX(8)=G 
TOL( I )=1.0E-5 
TOL(2)=1.0E-5 
TOL(3)=1.0E-3 
TOL(4)=1.0E“10 
PRM  =  0.0 


SIMPLX 


CALL  SIMPLXC  I NF I  X . AS . BS . TOL .PRM.KCLT . E RR . JH . XS . PS . YS . KB .ES ) 


non  r»  nonn 
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output  FROM  SIVPLX 
IFiKOUTd  )“3)20.2n20 

20  PRINT60.KOUT( 1) .<0UT(2) 

60  FORMAT i /5X6I2u) 

CALL  EXIT 

21  PRINT6C,(K0UT( n ,1-1.7) 
PR INT60 

PRINT61. (ERR( I ) . 1=1.4) 

61  FORMAT ( /5X6E20. 6 ) 
PRINT6G, ( JH( I  )  ,1  =  1,22) 
PRINT61,(XS( I )  ,1  =  1,22) 
PRINT61, (Kb( I )  ,1  =  1.35) 

FIND  Z'S 

MF=INF IX( 5  ) 

M  =INFIX(4) 

DO  22  dMF.M 
J  =  JH(  I  ) 

IF( J)22,22 ,23 

23  ZS(J)=XS(I) 

22  CONTINUE 

PRINT62, ( J,ZS( J) ,J=lf35) 

62  FORMAT ( /5XT" ,E20. 6) 

00  24  1=1,3 
11=2*1-1 
12=11+1 

24  CONST!  I  )=ZS(  ID  -  2S(  12) 


PRINT63,ZS( 7) 

63  FORMAT!  1HG4X20HM,AXIMUM  DEVIATION  =,  El  5.6) 

C 

C 

XTAU  =  CONST ! 1  ) 

XLAM! 1 ) =C0NST ! 2 ) 

XLAM! 2 )=C0NST ! 3 ) 

PRINT903,XTAU,ZERLAM,XLAM! 1 )  'XLAM!2  ) 

9C3  FORMAT !1H0/ 

1  IXIIHTHICKNESS  =,  E18.6  / 

2  1X12HALBE00!X)  =  ,  F6.2,  ITh  +  Cl*X  +  C2*X**2, 

3  2X3HC1=,  E18.6,  2X3HC2=,  Elfi,6//) 

C 

CNEW  APPROXIMATION 
C 

M  =  1 
L  =  u 

DO  12  I=1,N 
DO  12  J=1,I 
L  =  L+1 
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suy  =  p i L  *M ) 

DO  13  K  =  1  .3 

13  SUM  =SUM  +  CONST  (  K  )  L  »V,  ) 
12  R(L*M)=SUM 

L  =  0 

DO  14  1=1 *N 
DO  14  J=1  *  I 
L  =  L  +  1 

14  R2 ( I *J)=R( L*M» 

S1G=0.0 

CALL  OUTPUT 

DO  50  M1=1*M1MAX 
DO  18  M2=1»NPRNT 
M  =  M+1 
L  =  0 

DO  15  1  =  1  *N 
DO  15  J=1»I 
L  =  L+i 

SUM=P{L»M) 

DO  16  !C=1»3 

16  SUM  =  SU>M  +  CONST(K)*H(LfK»M) 

15  R(L»M)=SUiM 
L  =  o 

DO  17  I=1.M 
DO  17  J=1  .  I 
L  =  L-*-l 

17  R2( I »J)=R(L»M) 

18  SIG=SIG  +  DELTA 
50  call  OUTPUT 

RETURN 

END 


198 


PROGRAM  C.5.  DESIGN  OF  A  SLAB 


A  partial  program  is  isted: 

MAIN  program 

The  following  subroutines  are  required  from  Program  C. 1 
DAUX  subroutine 
ALBEDO  subroutine 
PANDH  subroutine 
NONLIN  subroutine 
OUTPUT  subroutine 

The  following  subroutine  is  required  from  Program  C.2: 
LINEAR  subroutine 

The  following  library  routines  are  required: 

MATINV 

INTS/INTM 


o  o  n  r"*  o  n  o 
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iJOB  26^9»kTI.\V'*»KC16-'’1-*'»''  *  ’ 

SIBJOB  RTINV4  MAP 
S I8FTC  RTINV  LIST 

COMMON  N,RT ( 7 1  »WT ( 7  I »rtR( 7 )  ♦AR ( 7»  7 )  . NPPNT , Ml MAX . KMAX . DEL TA .XTAU. 

1  ZERLAM,XLAM(2 ) »B2{7,/),R2{7»7),IFLAG»R(28»101).T{1491).SIG. 

2  P{28.101)»H(28»3»101)  •  P  T  AU  »  PLAM  (  2  )  .HTAUO)  .HLAM{2»3)  ♦P2{7.7)  » 

3  H2(7,7,3) »CONST{3)  .NEQ 

4  »NINC. JI NC { 7 ) ,NOBS 

PHASE  I 

1  READluOO.N 
PR IMT699 
PRINT900,N 

REAOlvOl , (RT{  I  )  .  1  =  1  .N) 

PRINT901* (RT( I ) »I=1 »N) 

READluOl , ( WT (  I ) 1 1  =  1 »N  ) 

PRINT901 , ( WT { 1 ) t 1=1 tN) 

DO  2  1=1. N 

WR ( I ) =WT ( I ) /RT { I ) 

DO  2  J=1»N 

2  AR{I,J)=  1.0/RT(I)  +  1.0/RT(J) 

899  FORMAT ( lH146X36HRAblATIVE  TRANSFER  -  INVERSE  PROBLEM  / 

1  47X33HUNKNOWN  QUADRAT U  ALBEDO  FUNCTION  / 

2  47X27HUNKNOWN  THICKNESS  OF  MEDIUM  //) 
lOOC  F0RMAT(6I12) 

9C0  FORMAT (61 20) 

1001  F0RMAT(6E12.8 ) 

901  FORMAT (6E20. 8 ) 

READl-CO .NPRNT.MlMAX.KMAX 
PRINT90C .NPRNT.MIMAX.KMAX 
READluOl .DELTA 

PR  INT9G1 .DELTA 

READlUOl .XTAU.ZERLAM.XLAMI 1 ) .XLAM (2 ) 

PRINT9C2 

PRINT903.XTAU.ZERLAM.XLAM( 1 ) .XLAM (2 ) 

902  format ( iH123HPHASt  I  -  TRUE  SOLUTION  /) 

903  FORMAT! IHO/ 

1  IXIIHTHICKNESS  =.  FlO.4  / 

2  IXllHALBEDOIX)  =»  F6.2»2H  +,  F6.2.3HX  ♦.  F6.2»4HX**2  //) 


PHASE  I  I 

4  READl^Ol  .XTAU. ZERLA/^. XLAM  (  1  )  .XLAM  (2  I 
K  =  0 

PRiNT904.X 

PRINT903.XTAU.ZERLAM.XLAM{ 1 ) .XLAM!  2) 
C 

REAOiOOO.NINC 

PRIMT900.NINC 

READIOOO. ( JINC! I ). I =1 .NINO 
PRINT900. ! JINC! I ) . I=1»NINC) 
N0BS=NINC*N 
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PRINT900.N08S 


C 

DO  6  I=ltNINC 
J=JINC ( 1 ) 

READl^Ol . ( B2( J.K ) .<=1 *N) 

6  PR INT901 * ( 82 ( J .K ) .K=l «N) 

C 

CALL  NONLIN 
C 

904  FORMATdHl  1  3HAPPR0X  I MA  T  !  ON  ,  13/  5 

C 

C  QUASILINEARI2ATICN  ITERATIONS 

C 

DO  5  <1=1.KMAX 
PRINT904,K1 
CALL  PANDH 
CALL  LINEAR 
5  CONTINUE 
C 
C 
C 

READIOOO. IGO 
GO  TO  ( 1 »4) » IGO 
END 

SENTRY  RTINV 

7 

25446046E-OU2923441E-0029707742E-00500000COE  0070292258E  0087076559E  CO 
97453396E  00 

64742484E-C1 1398 5269E-00 1909 1502 E-002U8 97958 E-00 1909 1502 E-00 1398 526 9E-00 


64742484E-01 

10 

10 

5 

.01 

1.0 

0.5 

2.0 

-2.0 

1.0 

0.5 

2.0 

-2.0 

1 

7 

.028 

.144 

.33  3 

.505 

.722 

SIdSYS  ENDJOB 


032 
00  2 


94 
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APPENDIX  D 

PROGRAM  FOR  RADIATIVE  TRANSFER; 
ANISOTROPIC  SCATTERING 
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PROGRAM  D.l.  PROGRAM  FOR  THE  CALCUIJVTION  OF  REFLECTED 
INTENSITI^ 

The  complete  program  is  listed: 

MAIN  program 
LGNDRP  subroutine 
CTAU  subroutine 
DAUX  subroutine 
DCTNRY  subroutine 
SSTART  subroutine 
OUTPUT  subroutine 

The  following  library  routine  is  required: 


INTS/INIM 
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i  JGn 


26'^9tRcFLX»H<0l63t8^'lCC3C*5CP*C 


ilBJUB  RCFLX  map 


ilBFTC  MAIN  ref 


C  RADIATIVE  TRANSFER  MAIN  PROGRAM 

COMMON  T(7263)»S(ll*lC,10)tG(li.lC*10)t2INT(20»10*l0)f 

1  P( 11*11* lo)  ,PW( 11 *11  ,10)  fPSI  ( 11 »11  ,1C) .XL( iCf 10)  tWT ( 10*10)  t 

2  FAC(22) *FACT( 22  *22) *  SGN ( 22  )  *  DEL  (  1 1  )  *OD£L (  1 1 )  *C ( 1 1 ) * C< <  1 1  *  1  1 

3  A(  10*10)  *DELPHI  (20)  .THETAdC) 

A  *MMON*NQUADtMMAX,NFLAG*K.FLAG*LFLAG.NPRNI  *N1  *  I  AuONE  *  lAUI  WO* 

5  DELTAU*OMEGA  *OLdEDO.NEO*NPHI ,FLUX*MPRNT 


* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r~ 

"w 

C 

c 

c 

c 

c 

c 

c 

c 


RADIATIVE  transfer 

DIFFjSE  reflection  FROM  A  TWO-DIMENSIONAL  FLAT  LAYER 

INTEGRATION  OF  SCATTERING  COEFFICIENTS  S(M*K,L) 
tag  IS  THE  INDEPENDENT  VARIABLE 

INTENSITY  IS  CGMPuTED  FROM  THE  S  COEFFICIENTS 


VARIABLES 

TAU 

S(M,<,L  ) 

XL (K»N0UAD) 
v>,T  (  <  *NwUAD) 

P  (  M  *  I  *  iC  ) 

2INT ( J*<*L) 

DELPHI ( J) 


THETA ( <  ) 
C  (  I  ) 


OMEGA 

QLDFDO 


DEFINITIONS 

OPTICAL  THICKNESS*  IN  MEAN  FREE  PATHS 
M-TH  SCATTERING  COMPuNENT  FOR  MU = XL ( K * NGUAD )  AND 
MU-ZERO  =  XL (L *NJUAD)  , 

<-TH  ROOT  OF  NwUAO-DEGREE  LEGENDRE  POLYNOMIAL 

corresponding  christcffel  weight 

both  XL  AND  WT  ON  INTERVAL  0  TO  1 
I-TH  degree,  (M-i)TH  ORDER  ASSOCIATED  LEGENDRE 
FUNCTION  EVALUATED  AT  X=XL ( < *NQUAD ) 
scattered  INTENSITY  FOR  MU=X L ( K , NQUA D ) *  MU-ZERO  = 
XL(L*NQUAD)*  and  DELPHI (J) 

J-TH  AZIMUTH  ANGLE.  NPH I  ANGLES  ARE  INPUT  (DEGREES) 
DELPnI<J)=0  MEANS  FORWARD  DIRECTION, 

DELPHI ( J )= 1  SO  MEANS  BACKWARD  DIRECTION. 

POLAR  ANGI-E  OF  OUTPUT.  THETA(K)=ARC  COSlNE(MU)* 
WHERE  MU  =  XL  (  K*NOUA'' )  . 

I-TH  FOURIER  COEFFICIENT  IN  EXPANSION  OF  PHASE 
FUNCT I  ON 

Albedo  of  single  scattering 
Albedo  of  earth*s  surface 


r 

v 

constants 

DEFIN  I  T  ION’S 

c 

nquad 

DEGREE  OF  GAUSSIAN  QUADRATURE 

c 

MMAX-l 

degree  of  FOURIER  EXPANSION 

c 

c 

NEvJ 

number  OF  differential  equations 
iNEQ  =  MMAX**'UUA0*(  NwUAD+1  )  /  2 

c 

N1 

INTEGRATION  OPTION  WORD 

c 

NPRNT 

number  OF  INTEGRA! I CNK  PER  PRINT 

c 

TAUONE 

INITIAL  TAU 

c 

TAUTWO 

final  tau 

c 

DELTAU 

INTEGRATING  GRID  SIZE 

c 

FLUX 

INCIDENT  FLUX  /  PI. 

/- 

c 

FLAGS 

MEAN  I NGS 

c 

NFLAG^l 

N>jUAD  AND  MMiAX  FOR  THIS  PROoLt'^' 

interval 


ARE  not  THE  SAME 


ANIS033C 
ANISOO^C 
ANISOOSO 
A  N  I  S  0  0  6  0 
AN  I SUU7U 


ANIS021C 
ANISC220 
ANISG230 
ANIS024C 
ANIS02S0 
ANIS026C 
ANI S0270 
ANISC2O0 
AM  SC290 
ANIS033C 
ANIS031C 
ANI SU320 
ANIS0330 
ANI S0340 
ANIS03SC 
ANI S036C 
ANIS037C 
ANIS036Q 
ANI S0390 
.ANIS040C 
ANI S041 0 
ANIS042C 
ANI5043C 
ANI S0440 
AMS04SC 
ANIS0460 
ANIS0470 
ANIS0480 
ANIS049C 
ANI 5CS00 
ANISC510 
AM  S052C 
ANISC53C 
ANISCS40 
ANIS055C 
ANIS056C! 
ANIS0370 
ANI SOSES 
ANI S0590 
ANI S060C 
ANI3061C 
ANIS0520 
AMS063C 
AN ! S064C 
AMS0550 
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c 

c 


Ai  IN  THE  P.^EVIOUS  PROBLEM,  SO  THAT  CERTAIN 
VARIABLES  MUST  tit  EVALUATED  AGAIN. 

NFLAG=2  otherwise 


KFLAG=1  C(ll  ARE  ALL  CONSTANT 

KFLAG=2  C(ll  ARE  FUNCTIONS  OF  TAU 

LFLAG=1  OMEGA  IS  CONSTANT 

LFLAG=2  omega  IS  A  FUNCTION  OF  TAU 


dictionary  ARRAYS 
FACT,  SIbN,  DEL 


INPUT  LEGENDRE  ROOTS  AND  CHRISTOFFEL  WEIGHTS 
SET  UP  A  DICTIONARY  OF  CONSTANT  COEFFICIENTS 

CALL  DCTNRY 

C  INPUT  PROBLEM  CONSTANTS 

R  READ  10j3*NbUAD*  MMAX,  NFLAG,  <FLAG,  LFLAG,  NPRNT  ,  M,MPRNT 
IF ( NOUAD-2 ) 9999, 9999,10 

iu  READ  100A,TAo0N£,TAJTa0»DELTAL,0MEGA,QL3ED0 
READ  1004 , ( C (  I  )  , I  =  1 ,MMAX  ) 

NEb  =  MMAX*M  NGUAD« ( NGUAD+1 )  )/2 
read  1 006  *FL JX ,NPH I , ( DELPHI ( U ) , J= 1 ,N?H I ) 

PRINT  2001 ,NwUAD,MMAX,NFLAb,KFLAG,LFLAG, NPRNT ,N1 ,MEG,MPRNT 
PRINT  20C2»TAUCN£»TAUTaO,D£LTAU»OM£  GA , OL3  EDO 
PRINT  2 .03 , ( C ( I ) , I = 1 ,MVAX ) 

PRINT  2:  4 , FLUX ,NPHI , ( DELPH I ( U ) , U = 1 , NPH I ) 


GO  TO  (16*1T),NFlAG 

C  NE^  ASSOCIATED  LEGENDRE  POLYNOMIALS  AND  OTHER  VARIABLES 

16  CALL  LGNDRP 

DC  18  J=  1  ,Nv^UAD 

WX  =  /^T(J,N0JADI/XL  (  J,NQUAD  ) 

DO  18  M=1,N'MAX 
DO  18  I=M,MiMAX 

18  PW{M,I,J)=P(M,I,J)*WX 
C 

00  19  X=1 ,NGUAD 
X  I  =1  .V./XL  (  <  ,NGUAD  I 
DO  19  L=1  ,< 

A(L*K)=X!+1.^/XL(L, NGU ad ) 

19  A ( <,L ) =A( L ,X ) 

C 

17  GO  TO  (20,21)  ,I<;FLAG 

C  THE  COEFFICIENTS,  C,  AND  THUS  1,  ARE  CONSTANTS 

2c  DO  22  M=1,MMAX 

DC  22  I=M,KMAX 
JO=  I  -•>! 

JT= I r^-l 
/- ; rM-?+ 1 


A  N  1  o  0  b  6  C 
AN  I  S0670 

ANISC6dO 
AN  I  Sri690 
ANISu700 
ANIS0710 
ANI S0720 
ANIS073C 
ANI S0740 
AMSC750 
AMS0760 
ANIS0770 
ANI S0780 
AN  I S0790 
ANIS0800 
ANI SOSiO 
ANIS0620 
AN  I  S0830 
ANIS0840 
ANI S0850 
ANIS0860 
ANIS0670 
ANISOSbC 
ANIS0890 
ANIS0900 
ANI30910 
ANI S0920 
ANIS0930 
AN  I S0940 
ANIS0950 
ANI S0960 
ANI S0970 
ANI S098C 
ANI S0990 
ANISIOOO 
ANI SlOlO 
ANI S1020 
ANIS1030 
ANIS1C40 
ANIS1050 
ANI S1060 
ANIS107C 
AN  I S1080 
ANI S109C 
ANISllOO 
ANISl 1  10 
ANIS1120 
ANISll 30 
ANI SI  140 
ANI SI  1  DO 
ANISl 160 
ANISl 1 70 
ANISl ISO 
AN  I  SI  190 
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IboC 

'670 

660 

690 

700 

710 

720 

73C 

740 

|750 

760 

770 

■^30 

790 

leoo 

6i0 

820 

630 

840 

850 

860 

870 

660 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

000 

010 

020 

030 

040 

050 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

160 

190 


22  CK(l.f^)=C(I  )  »FACT  (  JO.  JT  )  ♦SGNC  J  ) 

C 

C  INITIAL  INTLGRATING  STEP 

21  CALL  SSTART 
C 

CALL  INTS( T.NEQ.Nl .O.O.O.O.C.O) 

C 

J=3 

DO  25  M=1,MMAX 
DO  25  <=1 .NQUAD 
DC  25  L=1.K 
J'=J-*-l 

S(M.K.L)=T( J) 

Q(M.K.L)=S(M.K,L) 

25  S(M.L»K)=S(M.K,L  ) 

C 

C  COMPUTE  intensities  AND  OUTPUT 

CALL  OUTPUT 
C 

C  GENERAL  INTEGRATING  STEPS 

DO  31  Ml^l.MPRNT 

27  DO  26  N=1 .NPRNT 
CALL  INTM 

J=3 

DO  26  M=1,mmax 
DO  26  (4=1.N0UAD 
DO  26  L=1 .K 
J  =  J>1 

S(M.^;.L)=T(J) 

26  SIM.L.OsSIM.K.L  ) 

CALL  CUTOUT 

C 

28  DO  29  ,M=l.r<MAX 

DO  29  K=1.NGUAD 
DC  29  L=1.K 
G  =  S(M.K.L) -G(M,K,L  ) 

IF( A0S(G)-.OOCOC5  )29»29»30 

29  CONTINUE 
GO  TO  9 

3u  DO  31  M=l,MyiAX 
DO  31  K=i.NGCAD 
DO  31  L=1  .K 
31  Q(M»K.L)=S(M.K..L) 

C 

0999  CALL  EXIT 
C 

1CL3  F0RMAT(12I6) 

1GC4  FORMAT (6E 12.6  ) 

1006  FORMAT ( El  0.6 . I1C,5E10.6/(7E10.6») 

2001  format ( 1H149X18HRADIATIVF  TRANSF"R/// 

1  26X 1 4,46H-PCINT  GAUSSIAN  QUADRATURE  / 

2  26X I4,46H-TERM  EXPANSION  CF  PHASE  FUNCTION  / 

3  30X.  7H  NFLAG=»I1.  9h.  KFLAG=.Il.  9H.  LFLAG= . I  1 . IH.  / 

4  26XI4.46H  INTEGRATIONS  PER  PRINT  INTERVAL  / 

5  26XI4?46H=INTEGRATIUN  OPTION  ‘aOKD  / 


ANIS1210 

ANIS122C 

ANIS1230 

ANIS1240 

ANIS1250 

ANIS1270 
ANIS1280 
ANIS1290 
ANIS1300 
ANIS1310 
ANIS132C 
ANIS1330 
ANIS1340 
ANIS1350 
ANIS1360 
ANI31370 
ANIS1380 
AN  I  SI  390 
ANIS1400 

A  N  I  S 1 4  ’ 

ANI  SI 

AN  I  SI  4 30 

ANIS1440 

ANIS1450 

ANIS1460 

ANIS1470 

ANIS1480 

AN  I  SI  490 

AMS1500 

ANIS1510 

ANIS1530 

ANIS1540 

ANIS1550 

ANISl 560 

ANISl 500 
ANIS1590 
ANIS1600 
ANI S1610 
ANIS1620 
ANIS163C 
ANIS1650 
AiNI  Si660 
ANISlbTO 
ANIS1680 
ANISi69G 
ANIS17CC 
ANIS1710 
ANIS172C 
ANIS1730 
ANIS174C 
ANIS175C 
ANIS176C 
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6  2  6  X  I  4  « <!♦  6  1^'  I  F  F  F  K  L  \  T  i  A  L  ^  U  A  T  I  J  '•4  / 

7  26X14,  6H  V=’R.\T  /  ) 

?Jj2  !^^‘SVAT  C  3.X2dri  1NTl.3^AT1J\  kA\3_  I\  TAJ  IS»FV.4,  Jn  TO, ‘'9.4/ 

1  33Xi3n  jRlO  S12E  IS*  F7.4/ 

2  3-X'»l'l  ALBEOC  of  5I\SLF  SCATTLt^ING  IS,  F7.4/ 

3CX29H  AL52DO  OF  FARTri'S  S^'RFACt.  lo»  F7,4  ) 

2--3  format  (  3':X  36ri  COEFFICIENTS  IN  PHASE  EXPANSION  ARE  / 

1  ' 33X6F  ;.4  )  ) 

20.4  FOR-'-‘AT  (  3 JX  1  7n  INCIDENT  FLUX  IS  ,F9.4/ 

1  26X!4,46HDELTA?riIANGLESARE  / 

2  ( 33X6F9. 4  )  ) 

END 

iljFTc  LuNDRP  ref 

SUE  ROUT  Inf  londrp 

CASSwCF  ASSOCIATcl-  FU.KTlOf^S  8-21-52 

C  JMV'JN  T  (  726A  )  ,s  (  1  1  ,  u  ,  K)  ,.(  1  1  ,i:  ,  ID  )  .-INT  (  20 , 10 , 10  )  * 

1  P  (  1  1  *  1  1  ,  1-  )  ,P  ■.  {  1  1  , 1 1  ,1  u  )  ,FS  I  (  1  1  ,1  1  , 1  ,  XL  (  IC  ,  1C  )  ,ivT  !  10  »  1'^  )  , 

2  FAC ( 22 )  ,FACT ; 22  *22 )  *  SON ( 22 ) » DE E (  1 1  )  ,ODLL (  1 1 )  * C (  1 1 )  .  CK (  1  1  ,  1  1  )  , 
*  A(  l.,10)  ,OuLPi^I  i  2  )  ,TriETA(lC) 

4  ,MVi^\,N:wUAD.M  •'A'  ,  NFLAG  ,NFLAC',LFLA  G,\PRNT  ,M  .  T  A  JONE  ,  T  Al  T  aC  , 

"  D“LT/<U,Oi'''toA>,QL"3C.Dw,Nt.O,i\Pr-l,FLuX,*-'PR.\T 

r 

c 

DO  1.-  <=1,^-JAD 
X  =  XL ( <  .N NUAO ) 

XX=X**2 

r 

s. 

p( 1 , 1 1<)  =  1 . 

c 

p (  1  ,  2  » <)  =  X 

P  (  2  »2  ♦<  )  =  SCRT  (  1  ..^-XX  ) 
r 

P(l*3»R)=C,S»(--.w*'XX-1.0) 

Pl2,3^f;  )  =  3.v.»X*P(d,^,R) 

P;3»3,iC)=3.'-'*P(2,2,‘n)^*2 

C 

IF ( MMAX-4 )  1 4.  ,  1  w  ,  10 

r- 

v_ 

W  <C-.FX  -  'IMA  X-  1 

DC  9.  NN=3,<..C^X 

\  =  \i.+  1 

N  =  N  N 

T\  =  2*NNi-  1 

p  (  1  ,  \  ,<)  =  (  t,m*x*P  t  1  ,  \-l  ,<  )  -  t  f'N-l  .C  1  *P(  1  .N-2 ,4  )  )  /  FN 
C 

vax2=n\-: 

DO  So  vm=i,-'„X2 
M  =  MM+ 1 
SN-N\+'-iv-  1 
R  N  =  t\  \  -  M 

D.  p  t  V  ,  N  ,<  )  -  i  T  '♦X*P  (  ■  ,  N  -  1  ,<  )  -  SN-tp  (  M,  \-2 ,4  ;  )  /  Rn 

P(N,N,-)=^  i^^^P*.  '•,^^,4) 

C 


AM:il77C 

AMol  7oC 
A,\Iil7  -C 
AMSIS  .0 
AMololO 
AMoiaZO 
AN  1 Slo30 
A  N 1 .  10  4  2 
A  N  I  E- 1 8  5  C 
A  N  1  S  1  8  6  C 
ANloloTO 
L  G  N  lI  0  C  1  V 
LONOOC  30 
LGN0004C 

LGND0060 

LGNDOOSO 


L  G  N  0  0  2  2  0 
LGND02  3C 

LGNLfC'24L 

L0NDO25: 
L  G  N  0  0  2  6  C 
LGNDu2  7C 
LGNDC2S0 
LGNDC290 
LGNDC300 
LG.ND031C 
LGND032C 
LGND0334 
LGNDQ34G 
LGNOC3D& 
LGNl/C'2  6C 
LoNDO  3  7  C 
LGND03S0 
LGND039C 
LGND04G0 
LGND0410 
LGND042G 
LGNDC43C 
LGNDC44C 
LG.ND04S0 
L  G  N  0  j  4  6  C 
L  o  N  0  0  4  7  V, 
LGNDC480 
LGNDC49C 

lgndgsg: 

L  GNDO  S 1 0 
LGND052C 
LGNDC530 
LGND054C 
L G N D G 5  SC 


C 

c 


1) 


$ 


c 


c 


c 


c 
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Vlr.2*NN+l 
M2=NN+ 1 

P(N»\.K)  =  (C.b*P(2*2.<))**N^*FACT(f-l  ,"2  ) 
C 

9.  CONTINUE 
C 

ljU  CONTINUE 
RETURN 
END 

sIBFTC  CTAU 


LGND0560 
LGN00D70 
LGND05F 0 
LGNCo590 
LGiNOnBOC 
L  G  i\  0  0  6 1 C 
LGND062C 
LGND0630 
LGNDC6F0 


SUBROUTINE  CTAu 

RETURN 

AtNO 


SIbFTC  DAUX  REF 

DAUXOOl'j 

subroutine  D'.UX 

DAUX0030 

COMMON  T(7263)*5(ll»lC*K)»vj(ll.U:'*10)*^INT(2U*10*10)t 

1  P  (  i  1  .  1  1 .  1  ■-  )  .  PW  (  1 1  ,  1  1  , 1  C  )  ,  PS  I  (  1  1  . 1  1  » 1  0  )  ,  XL  (  1  0 . 1  C  )  .  A  T  (  1 0 , 1  0  )  , 

DAUXCC50 

2  FAC  (  22  )  .-ACT  (  22.22)  .  SGN(  22  )  .uEK  11  )  .CDELI  1 1  )  .C  (  1  1)  .  CK «'  1 1  . 1  1 

)  » 

3  A(  K.IO)  .DELPHI  (20)  ,  THETA  (  iO) 

DAOXO.:7C 

A  .  ,vy.UN  ,  NaUAU  .MMAX  .  NFLAG  .  NFLAG  .  LF  LAG  .TiPRNT  .N1  .  ^AuONE  .  T  AUTwO  , 

5  DEL  T  A  J  .  vjMEGA  .GL6ED0  .  NEO  .  NPh  I  .  F  LUX  .N'POMT 

C 

DAuXCZlC 

CALL  CTAU 

DAJX0220 

GO  TO  (1.2)  .<FLAG 

DAUX0230 

2 

DO  22  M=1,MMAX 

DAJX0240 

DC  22  I=M.('^.MAX 

DAJX0250 

JO= I -M+1 

DAUX026C 

JT=- 1  +M-1 

DAUXC270 

j  =  I  +^,-2+1 

22 

CK(  I  .M)=C(  I  )*FACT( JO.JT)*5GN( J) 

DAuX029C 

C 

DA^X03CC 

1 

Cmll  albedo 

DAu> J31C 

3 

L  =  3 

DAUXv320 

DOIA  M=1,MMAX 

DAU;<G3  3C 

DOIA  X=l,NGUAn 

DAUX054C 

DC  1 4  J  =  1  ,  K 

DA^X03S0 

L  =  L+1 

DAJX0360 

S  (  M .  K. .  J  )  =  T  (  L  ) 

’'AJXC37C 

1  4 

S(  V,  J  ,.<)  =S  (M.N.  J  ) 

DAuXC38C 

DC  5  M=l,yN:AX 

DAUXC39C 

DO  5  I=M,(vv,AX 

DAUAU4C'" 

DO  5  .<  =  1.N'JUAD 

OAJXCAiO 

SUM=C.u 

DA'^XuAcC 

D(^  6  J=1.N^UAD 

DAUX0430 

6 

SU'i  =  SUM  +  S  (  •' .  K  .  J  )  »P .V  (  •■ ,  I  ,  J  ) 

DAUXG440 

J=I4V,_24  1 

5 

P£I(M.I,<)-^P(^'.I,iC)+C.5*SGN(J)  *SUv/DEL(M) 

DAUX0460 

C 

DAUX047C 

DO  7  y=l,MMAX 

DA JXOAbO 

7 

ODEL  (  M  )  =OMEGAi^OEL  (  M  ) 

DAiU  XC490 

C 

DAJXQSOO 

U  =  N  -.Q-*-  3 

0  A  A  J  S  i  u 

DC  6  Mi=1,v,max 

DAUAC  2  2  0 

DO  fa  N-1,NQUAD 

D  A  u  X  0  ■>  3  u 

DO  2  L • 1 »  N 

D  U  X  >  4 

no  o  o  r^  n  n  r\ 
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j  =  j  +  i 

suM=c . : 

DC  9  I  =  Vi,  MM  AX 

9  SLM  =  5UM+CK.  (  I  .T’ »  *P  -  '  (  M,  I  ,f;  )  *PS  1  ( :•’♦  1  fL) 

6  T ( J ) =-A( K * L ) *S < M,K .  .+CDEL ( M) *SUM 
RETURN 
END 

iloFTC  DCTNRY  REF 

SUdROjTINE  DCTNRY 

COMMON  T  (  7263  )  .  S  (  1  1  . 1  0 . 1  v.  )  . 0  (  1 1  » 1 0 . 1 0  )  » A  I  NT  (  2 0 . 1 0  »  1 C  )  » 

1  P( 1 1  *  1 1 »  W )  »Pa (  1 1 . 1 1 .1C ) »PSI( 1 1  ♦! 1 . 1C ) .XL (  10* 10  )  .aT (  10*  10  )  . 

2  FAC  (  22  )  .fact  (  22  *22  )  *  SON  (  22  )  .OELt  11  )  .CDEL(  11).C(11).CK-(11.11). 
A(  I'^.I  J)  .DELPHI  (20)  .TmETACIC) 

.r.-M^M.MQjAD  .MMAX  .  NF  L  AG  .  KF  L  AG  .  L  F  LA  G »  NPRN  T  .N]  .  TAUONE  .  TAUTwO. 

5  del: AJ .CMEGA .QLBEDC .NEO.NPHl .FLUX.MPRNT 

INPUT  ROOTS  AND  WEIGHTS 


DO  1  1=2.10 

1  READ  10..N.(XL(J.N) .J=1.N) 

DO  2  1=2. 1C 

2  READ  1  uU.N*(*T  (J.N)  «J=l*iN) 

1^0  FORMAT ( I  12/ ( 6E12 .d )  ) 

SET  UP  dictionary 

single  FACTORIALS 
‘C  (  1  )  =  1 .  0 
FAC(2)=1.J 
FAC( 3 ) =2. 

DO  3  0=4.22 
FJ=J-1 

3  FAC( J) =FJ*FAC( J-1  > 

DOUBLE  factorials 
DC  4  0-1.22 
DC  4  1^=1  .22 

4  FACT ( J .<) =FAC ( J ) /FAC ( X ) 

(-1 ) *♦ ( I+M) 

CO  S  M=1  ,  i  1 
DC  5  1=1.1) 

J=M+I-2 

L  =  J'*’  i 

M.J-M.OD  (  J.  2  )  ■*■  1 
GO  TO  (5.7) .MJ 

6  SGN(L  )=!..; 

GO  TO  S 

7  5GN(L!=-1.. 

5  CONTINUE 

2,-<R0NEC<ER  DELTA! l.M) 
DfL( 1  )  =  I.C 
DC  6  M  =  2. 1  I 


DAUX0S5C 

DAUX0S6O 

DAUX0S70 

DAUX0560 

DAUX0590 

DAUX0600 

DAUX0610 

DCTNOOlO 

DCTN0C30 

DCTN0050 

DCTN0070 


DCTN0210 

DCTN0220 

DCTN0230 

DCTN024C 

DCTN02SC  C 

DCTN0260  C 

DCTN0270 

DCTN0280 

DC"N0290 

DC  0300 

DCTN031C 

OCTNO320 

DCTN0330 

DCTNC34C 

DCTrNC350 

DCTN0360 

DCTN0370 

DCTNO3d0 

DCTN0390 

DCTN0400  * 

DCTN04i0 

DCTN0420 

DCTNC430 

DCTN0440 

DCTN0450 


DCTN0480 

DCTNC490 

DCTNOSOO 

DCTN0520 

DCTN0540 

DCTN0550 

DCTN0560 

UCTN0S70 

DCTN0560 

DCTN0590 


n  n  n  n  n 


n  n  n  n  n 
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c 

RETURN 

END 

iloFTC  SSTART  REF 

SU3ROUTIME  SbTART 

COMMON  T{7  26  3).S(ll.l0.lu).O{ll,lC.10).ZI.NT(20.10.10). 

1  P{11.11»1w),Pw{11.11,1D),PSI(11.11,10».XL(10.10).WT(10.10). 

2  FAC {22).FACT{22.22).  SGN(22).DEL(ll),ODEL(ll) »C(11).CK(11,11(, 

3  A{  U, 10)  .DELPHI  (2C)  .THETA(IO) 

A  .MMON.NOUAD.MMAX.NFLAG .KF LAG. L Flag. NPRNT.Nl . T A JONE . T AUT WO . 

3  DELTA'J.OMEGA.QLBEDO.NEQ.NPHI  .FLUX.MPRNT 
DC  23  1=1.7263 
23  T{I)=u.O 

T{2)=TAUONE 
7(3) =DELTAU 
DC  2A  I=1.MMAX 
DO  2A  J=l.NOUAD 
DO  2A  K=l.NuUA0 
2A  sn  .  J.K)  =0.^ 

C 

c 

FO  =  4  •  0  *'0L  3  ED  U 
DC  26  J=1.NGUAD 
DC  26  <=i.J 

S( 1  * J  *X) =FQ»XL ( J .NOUAD ) *XL ( k.NOUAu: 

26  S(  l.K»J)=S(  1  .J.O 
J  =  3 

DC  20  M=1.MMAX 
DC  26  <=1.NCUAD 
DO  28  L= 1  .  K 
J  =  J+1 

2  0  T  {  J ) =  S { M . <  ,  L  ) 

RETURN 

END 

ilbFTC  OUTPUT  REF 

SUBROUTINE  OUTPUT 
DIMENSION  CMD{ 2^. 1 1  ) 

COMMON  T{7263).S(ll.lC.lC).0(11.10.10).2INT(2C.i0.10). 

1  P< 1 1  *  1 1 . 1-  '  .PW{ 1 1 . 11 .10 ) .PSI ( 1 1  .1 1 . 1C)  .XL( 10. 10 )  .WT ( 10. 10) . 

2  FAC(22).FACT{22.22).  SGN(22).DEL(11)  .OOEL ( 1 1 )  . C ( 1 1 ) . CK ( 1 1 . 1 1 ) » 

3  A { K  .  10 )  .DELPHI ( 20 )  .THETA ( 10  ) 

A  .MMUN.NQUAD.mmAX .NFLAG .KFlAG.LFLAG.NPRNT .N1 . TAUONE . TAUT  WO. 

3  DELTAJ. omega. CL3EDC.NEQ*NPhI .FLUX.MPRNT 


I F (LFLAG-I  )  1  .  1 .6 

STORE  ANGLES  AND  COSINES  OF  M  DELTA  PrtI 

1  OFLUX=u.25*FLUX 
DO  3  K=l.NOU'AD 

CSTHET  =  XL ( <  .NQUAD ) 

3  ThETA{K)=ARCOS(CSTHET)  *57.2937793 

C 

DC  5  J=l.NPr.I 


DCTN0600 

DCTNC610 

DCTN0620 

SSTAOOIC 

SSTA003Q 

SSTA0C5C 

SSTA0070 


SSTAOOlO 

SSTA022C 

SSTAC230 

SSTA02A0 

SSTA0250 

SSTA0260 

SSTA0270 

5STA0280 

SSTA0250 

SSTAC300 

SSTA0310 

SSTA0320 

SSTA0330 

SSTA03A0 

SSTA0350 

SSTA0360 

SSTA0370 

SSTA036C 

SSTA0390 

5STA0A00 

sstacaio 

SSTA0A20 

SSTA0A30 

CUTPOOlO 

0UTP003C 


AMS00  50 


OUTP0050 
OUTP0060 
OUTP0C70 
OUTP008C 
OUTP0090 
OUTPOlOO 
OUTPOliO 
OUTP0i20 
OUTPCl 30 

OUTPCl 60 
OUTPOl 70 


rv  ri  o  r'l  r>  r\  r^ 


-252- 


4 

lo31 

b 


C 

C 

6 


C 

C 


DELPHl(J)=0ELPHl(Jj*.174  5!3^!^2bt;-Ji 
OC  4  ?.'=  1  ,M,ViAy. 

FM=V-1 

FyD=FM*DELPHl ( J ) 

CN:D(  J»N')=COS(FMD) 

PRINT  1451  .J.  '-.CMOt  J*M) 

FGRf-  AT  (  2  I  5  •  -  16.  b  ) 

CONTINUE 

LFLAG=2 


CALL  ALBEDO 
TAU=T ( 2  ) 


OUTPUT  S 


CUTPOl 80 
OUTPOlOO 
OUTP0200 
CUTP02 1C 
OUTP022C 


0UTP0230 

OUTP0240 

OUTP0250 

CJTP0260 

OUTP0270 

OUTP0280 


PPlNTluv«Of’’iiOA*GLoEOO*TAU 
DO  1C  Iri,NQUAD 

PUNCH2vo , 1 
PRINTl. 3, 1 
DO  10  M=l.yMAX 
yM  =  y-i 

PRINTlv5»M,v,»  (S(M*J*  1  )  *J-1  tNOjAD) 
K5  FCRMAT(3XI2.1-.F10.6) 

14  PUNCH241»  ( S(M, J. I ) . Jsl .NQUAD) 
20u  PORyATt3112} 

2^1  FORMAT ( 6E12 .8 J 


OUTPUT  I 

PRINT  1U5.0MEGA,QL6ED0.TAJ. (<»K=1 .NUuAD) 

DC  16  J=1.NPHI 
DO  It)  <=1,N0UAD 
DO  16  L=l.< 

S  U  M  —  0  •  vy 

DO  14  M=1*MMAX 

14  SUM  =  SUM  +  C  MD  (  J  ,  M  )  *  5  (  M  .  .<  »  L  ) 

SUM=SJM*0FLUX 

ZINT  (J*L*I^  )~oUM/XL(L*NJUAD) 

15  21N1(J.K*L)=SUM/XL( A  tNQUAD ) 

DO  20  L=l.NOUAD 
J=1 

PRINT  i:3»L»  ( Z INT ( J.K ,L )  »<  =  1 .\4JAD  ) 

! F ( NPH 1-1)24*20.19 
19  DO  22  J=2.NPH1 

22  PRINT  K8  .  (  Z  1  NT  (  J.K  .L  )  .<  =  1  .NwUAD) 

2^.  CONTINUE 

C 

140  FORMAT ( lril24X29HSCATTERING  COEFFICIENTS.  S(M) 


OUTP029C 
OUTP030G 
OUTP0310 
OUTP0320 
OUTP0330 
0UTP034C 
OUTP0350 
0UTP036C 
OUTP0370 
OUTP0460 
0UTP0390 
OUTP0400 
OUTPC410 
OUTP0A20 
OUTP0430 
OUTP0440 
OUTPC450 
OUTP0460 
OL'TP04  70 
0UTP046C 
OUTP0490 
OUTP050C 
0UTP051C 
0UTP0520 
OUTP0530 
O'  TP0  540 
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1  Ji 
lJ2 

1C3 

104 


1U6 


108 


1  23X7HOME‘jA  =,F5,2*  5h,  = .  h  5 . 2  »  .  7.  =*F5.2/  0UTP0550 

2  10X58HF0R  THE  FOLLOWING  PoLAR  ANGLES  CF  INCIDENCE  AND  REFLECT 10N0UTP0560 


3  )  OUTP0570 

FORr^'.AT  (  IHO  26X  5HANGL  E  .  4  X7HDc.GR  E  ES  »  4X  6HCOS 1  NE  /  (  28X  I2.F12.2»F11.4))  0UTP0  580 
FORMAT(lHO/2X8HlNCIDENT.20X21hRFFLECTED  POLAR  ANGL E/ 3X SHANGLE /  OUTP0590 

1  (2X1GI10))  0UTP0600 

FORMAT (1H02XI2.10F10.6)  0UTP0610 


FORMAT ( 1H03X67HN0TE.  EACH  FIGURE  A30VE  CORRESPONDS  TO  AN  I NC I DENOUTP0620 
IT  POLAR  angle*  A / 4X 69HREF L ECT ED  POLAR  ANGLE.  AND  A  TERM  IN  THE  EXP0UTP0630 


2ANSION  OF  THE  S  FUNCTION.  //  0UTP0640 

34X6BHEACH  FIGURE  ON  THE  NEXT  PAGE  CORRESPONDS  TO  AN  INCIDENT  POLAROUTP06 5C 
4  angle.  /4X55HA  REFLECTED  POLAR  ANGLE.  AND  A  CHANGE  IN  AZIMUTH  AN0UTP066U 

SGLE.)  OUTP0670 

FORMAT ( 1H126X24HSCATTERE0  INTENSITIES.  I  /  OUTP0680 

1  23X7hOMEGA  =.FS.2.  5H.  Q  =.F5.2.  5H .  Z  =.F5.2  /  0UTP0690 

2  IHO.IXKIIL)  0UTP0700 

FORMAT(5X10Flu,6)  0UTPC710 

RETURN  0UTP072C 

END  OUTP0730 


tENTRY  MAIN 


2  021 

2ll32486E-0J7a86?5l4E  00  022 

3  023 

1  1270166E“Cl5COOCOOu£  GC88729834E  uO  024 

4  025 
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PROGRAM  E.l.  PRODUCTION  OF  INTERNAL  MEASUREMENTS 
The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 

The  following  library  routine  is  required: 
INTS/INTM 


r»r»  n  r>rvrvnnnrv 
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iJOB  2609 ,DYNN£U»K0160  *5  ♦  100 ♦  ICC  ,C 

SIBJOB  MAP 

SIBFTC  MAIN  ref 

DIMENSION  NPNCH(20) »Z( 300) 

COMMON  T(27)»A(20)*X(20)*IFLAG*AA,U(30''')  tVOOC)  »N SLABS 
C 

1  READ,(  5»100  )NPRNT,MPRNT  »NSL  ABS  ♦  NGR  I  DS  ,  NOS 
WRITE ( 6*90 ) NPRNT»MPRNT*NSLABS»NGR IDStNOS 
READ(5»100) (NPNCH( I )» 1=1, NOS) 

WRITE (6,90) (NPNCH( I ) , 1=1 ,NOS) 

READ( 5,101 )DELTA,AA 
WR ITE(6,91 )DELTA,AA 

AD( 5,101 ) (X( I ) ,I«1,NSLABS) 

WRITE(6,91)(X(I) , I=1,NSLABS) 

reflection  coefficient 

RC=SIN(AA) /C0S( AA) 


U  AND  V  FLUXES 

T(2)  =  l<^ 

T' 3)=-DELTA 
T ( A) =RC 
T( 5)=1.0 

CALL  I  NTS ( T, 2 ,2 ,0,0,0, 0,0,0  ) 

WRITE (6, 94) 

WRITE(6,95)T(2)  ,T(4) ,T(5) 

N  =  0 

DO  5  I=1,NSLABS 
DO  5  J=1,NGRI0S 
CALL  INTM 

WRITE{6,95 )T(2) ,T(4),T(5) 

N  =  N+1 
U( N) =T (4) 

5  Z(N)=T(2) 

PUNCH  U  AND  V  OBSERVATIONS 
PRINT97 

DO  6  M=1,NSLA6S 

DO  6  1=1, NOS 

N= (M-1 )*NGRIDS+  NPNCH(I) 

PUNCH96,Z(N) ,U(N) 

6  PRINT96,Z(N) ,U(N) 

GO  TO  1 

ICO  F0RMAT(6I12) 

101  FORMAT (5E12. 8  ) 

90  FORMAT  aH06l20) 

91  FORMAT! 1H06E2G. 8) 

92  FORMAT ( ///19X1HX, 16X  4HR ( X )  ,  1 1X1  HA/ ) 

93  FORMAT (F20.4,E20,8,F12.4) 

94  FORMAT(///l9XlhX, 16X  4HU ( X ) , 1 6X4HV ( X ) , 1 1 X IHA/ ) 

95  FORMAT(F20.4,2E20.8,F12.4) 

96  FORMA  I  (F12,2,E12.8) 

97  FORMAT!///) 
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ilBFTC  DAUX  RFF 

SUBROUTINE  DAUX 

^  COMMON  T{  27)  .A(  20)  .X(20»  ♦'IFLAG,AA 

A  T(6)=AA*T(5) 

T ( 7 ) =-AA*T ( 4 ) 

RETURN 

END 

SENTRY  MAIN 


1 
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r, 
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■^r>r  )  ,v(  ')^':')  »NSLA5S 

10  3 

O.A  OtS  0.6 

1.0 

74 


74 
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PROGRAM  E.2.  TWO  DIMENSIONAL  DYNAMIC  PROGRAMMING  FOR  THE 

determination  of  absorption  CO^^TTCIMTS 

The  complete  program  is  listed: 

MAIN  program 
INTERP  subroutine 
DAUX  subroutine 
INTR  subroutine 

The  following  library  routines  are  required: 

BET 

INTS/INTM 


SJOB  2690  tOPNll . KO 1 60  h G » 1 00  ,  K  ^  ,  C 

SIBJOB  MAP 

SI0FTC  MAIN  RFF 

COMMON  T ( 27)  ♦ AA .NA.AI 51 ) .DA  ,NC  .C I  1C  1  )  ,DC ,NE  »E ( 51 )  . DF  ♦NSLA3S  .B ( 51  )  » 

1  NOS  ♦  IGR  I  D(  100  )  .NGRDSB.MOB  ICC  )  ,  ?  (  1 00  )  .  W  (  1  00  )  .DELTA  .MINT  . 

2  F( 51  .51  )  .S( 51 ) .HI  51 .51  ) .U( 1 00) 

C 

1  READ( 5.100)NA.A( 1 ) .DA 
WRiTE(6.90)NA,A( 1 ) .DA 
DO  7.  I=2.NA 

2  A( I )=A ( I-l )+DA 
C 

READ(5.100)NC.C(1 ) .DC 
WRITE(6.90)NC.C(1 ) .DC 
DO  3  I=2.NC 

3  C( I )=C( I-l 5+DC 
C 

READ( 5.100)NE.E( 1 ) »DE 
WRITE ( 6.90 )NE .E ( 1 ) .DE 
DO  4  I=2.NE 

4  E(  I  )=E( I-l )+DE 
C 

READ! 5  ♦  100 INSLABS. ( B(  I  ) . I  =  1  .NSLAR5 ) 

WRITE( 6.90 )NSLA3S. ( B( I ) . 1=1 .NSLABS) 

C 

READ( 5.101 )NOS. (  IGRID(  I )  ♦  1  =  1  .NOS) 

WR ITE ( 6.91 )NOS. ( IGRID( I ) . 1=1 .NOS ) 

C 

READ( 5 .101 )NGRDSB 
WRITE(6.91 )NGR0SB 
N  =  0 

DO  5  1=1. NSLABS 
DO  5  J=l.NOS 
N  =  N+1 

5  MOBS(N)  =  (  I-l  )*NGRDSB  +  IGRID(J) 

NTOBS=NOS*NSLABS 

WRITE(6.91 ) (MOBS( I )  .1  =  1  .NTOBS) 

C 

READ(5»102)(Z(I)>W(I)»I=1. NTOBS) 

WRITE(6»92)(Z(I),W(I).I»1 .NTOBS) 

C 

READ! 5 . 102 )DELTA 
WRITE! 6.92 )DELTA 
C 

MINT=NGRDSB 

C 

C  STAGE  1 

C 

NSTAGE=1 

WRITE ( 6.93 )NSTAGE 
C 

DO  10  I=1.NC 
DO  10  J=1 .NE 

AA  =  ATAN2(C(  I )  .E( J)  )/B(  1) 

F( I .J) =0.0 
DO  6  <=l.NOS 

6  F(I.J)=  F(I.J)  +  (SIN(AA*Z.(K)  )  -  W(<))#*2 
CR=0.0 

EP=0.0 

10  WRITE(6.94)C(I).E(J).AA.CP.EP.F(ItJ) 


rs  o 
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DO  50  NSTAGE  =  2  .NSLA3S 
WR  I  TE ( 6 ,93 ) NSTAGE 
DC  40  IC  =  1  ,NC 
DO  40  JE  =  1  ,NE 
C 

DO  30  U  =  l,NA 
BX=B(NSTAGE) 

AA  =  A( I  A  ) 

1(2)  *BX 
T ( 3  )=-DELTA 
T(4)=C( !C) 

T(5)=E(JF) 

CALL  INT5(T,2,2»0, 0,0, 0,0,0) 

DO  20  M=1,MINT 
CALL  INTM 

20  U(N')=T(4) 

D  =  0.C 

J= ( NSTAGE-1 ) *NOS 
DO  21  1=1, NOS 
M= IGRID( n 
J  =  J  +  1 

21  D=D  +  (U(M)-W( J) )**2 
CP=T(4) 

EP=T( 5 ) 

CALL  INTERP(CP,EP,Fn 

30  S(IA)=D+FI 
C 

C  MIN  s  OVER  A 

MINA=1 

SMIN=1.0E+20 
DO  31  IA=2,NA 
I  =  IA 

!F{5( I )-SMIN) 32,31,31 
32  SMIN  =  S(n 
MINA= I 
AA  =  A  (  I  ) 

31  CONTINUF 

H( IC, JE) =SMIN 
C 

40  WRITE(6,94)CnC)  ,E(  JE)  ,AA,CP,EP,H(  ir,JE) 

DO  50  IC=1,NC 
DO  50  JE=1,NE 
50  F( IC,JE)=H( IC,JE) 

C 

GO  TO  1 
C 

100  FORMAK I12,5E12.8/(6E12.8)  ) 

90  FORMAT(1HOI20,5E20.8/(6E20.8)  ) 

101  F0RMAT(6I12) 

91  FORMAT(1H06I20) 

102  FORMAT(2E12.8 ) 

92  FORMAT ( 1H06E20, 8 ) 

93  FORMATCIHI  9HSTAGE  N  =,  I  3 / / 1 8X2HC 1 , 1 P X2HC2 , 1 9X IHA ♦ 1 7X 3HC 1 '  , 

1  17X3HC2'  ,12X8HF(C1  ,C2)  ) 

94  FORMAT (6E20. 8  ) 

END 

SI8FTC  INTERP  REF 


n  n  on  on 
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GUBROUTINE  I NTERP ( X . Y » AMS ) 

COMMON  T ( 2V ) *AA ,NA, A( 51 ) .DA  ,NC  .C (  in )  ,DC,NE.E (51 )  .DE.NSLABS.B ( 51  )  . 

1  NOS . IGR I D( ICO ) .NGR05BrMG3S( 100 )  .NTC3S .2 ( 1 00  > . W ( 1 00 ) . DEL T A , M I  NT  . 

2  F(51.51).S{51»,H(51.51) 

C  TWO-DIM.  interpolation 

C  find  I  1  ,  I  2  V  I  .E.  .  XI .  X2 
DO  1  1=2, NC 
11  =  1 
12=1-1 
XI =r( n  ) 

X2=C( 12) 

I F ( BET ( XI ,X,X2,MM))1,2,2 

1  CONTINUE 
ANS=1 .OE+20 
RETURN 

FIND  J1,J2,  I  .E.  ,  Yl.  Y2 

2  DO  11  J=2,NE 
J1=J 
J2=J-1 
Y1  =  E( J1  ) 

Y2  =  E( J2  ) 

I FIBET ( Yl ,Y, Y2,MM) ) 11 ,12 ,12 
11  CONTINUE 

ANS=1 .OE+20 
RETURN 


FIND  F(X,Y1 )=G1 
12  F1=F(I1,J1) 

F2=F( 12, J1 ) 

DX=X2-X1 

D=X“X1 

CALL  INTR(F1,F2,DX,D,G1) 

FIND  F(X,Y2)=G2 
F1=F( I  1 , J2  ) 

F2=F( I2,J2) 

V  ALL  INTR( FI ,F2,DX,D,G2) 


C  FIND  F(X,Y)=ANS 

DY=Y2-Y1 
D=Y-Y1 

CALL  INTRIGl  ,G2,0Y,D,ANS) 

RETURN 

END 

SI3FTC  DAUX  REF 

SUBROUTINE  DAUX 

COMMON  T(27),AA,NA,A(51),DA,NC,C(1C1),DC,NE,E(51)  , DE , NSLABS , 0 ( 51  )  , 

1  NOS , I GR I D( 1 00 ) , NGRDSB ,M0BS ( 100)  ,NT0BS?2(1U0),W(100)  .DEL  TA , M I  NT  . 

2  F( 51 .51 ) .S( 51 )  ,H( 51 .51  )  , 

C 

T(6)=AA»T{ 5) 

T(7)=-AA*T(4) 

RETURN 

FND 

ilBFTC  INTR  REF 

SUBROUTINE  INTR(F1,F2.0X,D.G) 

C  ONE-DIM.  INTERPOLATION 

G=F1  +  (F2-F1)*D/DX 
RETURN 


'err: 
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PROGRAM  E.3.  ONE  DIMENSIONAL  DYNAMIC  PROGPvAMMING  FOR  THE 
DE^ITNATION  OF  ABSOP^mCN  COEFFICIENTS 

The  complete  program  is  listed: 

MAIN  program 

DAUX  subroutine 

SUBREF  subroutine 

SHIFT  subroutine 

SUBNLV  subroutine 

SUBDF  subroutine 

The  following  library  routines  are  required: 

BET 

INTS/INTM 


r»r>r>  r>r>r>  r>r>  r>  r«  onn 
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SIBFTC  MAIN  RFF 

COMMON  T( 51 ) .NA.A( 10)  .DA  *NC .C( ICOI )  .DC.NSLABF  .61 10  )  tDRcNOSt 

1  IGRID(5C) .NGRDSB.DEL  TA . MODS ( 2CO ) . NTO° 0 . Z ( 200 )  . W ( 200  )  . M I N T . 

2  IFLAG,AA.CP.FP»CPA.E0A.R( lOGl) .F( 1:^01 ) .NSTAGE.RBIG.TBIG. 

3  RP.RO( 1 OCl )  .ALPHA.SM1N.AMIN.F0(  1001  ) 


I  NPUT 

1  READ! 5  .  100 ) NA  ,A ( 1  )  .DA 
WR I TE ( 6 .90 ) NA  .A ( 1 )  .DA 
DO  2  1=2. NA 

2  A ( I ) =A ( I-l )+DA 

READ(5.100)NC.C(1 ) .DC 
WRITE(6.9C)NC.C(1 ) .DC 
no  0  1=2. NC 

3  C( I ;=C( I-l )+DC 

RPAD(5.10C)NSLABS.B() )  .DB 
WRITE(6.90JNSLA3S.3(1) .DB 
DO  A  I=2.NSLABS 

4  8 ( I ) =B ( I-l )+DB 

READ! 5 . 101 5N0S. ( IGRI0(  I )  . I  =  1  .NOS) 
WR ITE ( 6.91 )NOS. ( I GR ID( I ) . 1=1. NOS) 

READ! 5 . 100 ) NGROSB .delta .alpha 
WRITE! 6. 90) NGRDSB.DEL T A. alpha 
N  =  0 

DO  5  I=1.NSLABS 
DO  5  J=1.N0S 
N  =  N+1 

5  M0BS(N)=( I-l ) *NGR0SB  +  IGRID(J) 
NT0B0=N0S*NSLA9S 

WRITE(6.91 ) (MOBS(N) .N=l .NTOBS) 

READ(5.102)(Z(I).W(I).I=1 .NTOBS) 
WRITE(6.92)«Z(n.W{I,.I«l  .NTOPS) 

MINT=NGRDSB 

STAGE  1 
NSTAGE=1 

WRITE(6.93)  NSTAGE 
DO  8  IC»1  .NC 
SMIN=1 .oe+' 0 
DO  7  lA-'  .,;a 

FIND  CP=V(0) 

IFLAG=1 
AA  =  A  '  I  A ) 

T ( 4) =0,0 

T  (  5  )  «  1 . 0 

T ( 2  )  =0.0 
■^  (  3  )  sDELTA 

call  INTS( T.2 .2.0.0.0.0.0.0 ) 

DO  6  M=1.MINT 

6  CALu  INTM 
CP=C( IC)/T(5) 

EP=0.0 


r>  n  r> 
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10  CALL  INTM 

EP=(C(  IC )-CP*T( 7) )  /  T(5) 

C 

C  COMPUTE  D.F 

CALL  SUBDF 

11  CONTINUE 
AA=AMIN 

F( IC) =SMIN 

IF(F(  10-100. C)  i6»15.15 

15  NC=IC-1 
WRITE(6,95)NC 
GO  TO  17 

C 

C  COMPUTE  R(0 

16  CALL  SUBREP 
R(  IO=RP 

12  WRITE! 6»94)C(  IC  )  tAA.CPA.EPA  ♦R(IC).F(IC) 

17  CALL  SHIFT 

13  CONTINUE 
GO  TO  1 

C 

100  FORMAT! I12»5E12.8/(6E12. 8)  ) 

90  FORMAT!1HOI20,5E20.8/!6E20.8) ; 

101  FORM/~'6I12) 

91  FORMA'i  !1H06I20) 

102  F0RMAT!2E12.8) 

92  FORMAT ! 1H06E20. 8 ) 

93  FORMAT! 1H19HSTAGE  N  =♦  I  3/ / 1 9X 1 HC ♦ 1 9X 1  HA , 1 8 X2hC P » 1 8X2HEP . 

1  16X4HR(C) ♦16X4HFIC) //) 

94  FORMAT!2F20.6.4E20*6) 

95  FORMAT ! 1X18HNUMBER  OF  STATES  15) 

END 

SIBFTC  OAUX  REF 

subroutine  OAUX 

COMMON  T! 51  )  *NA.A! 10) »DA,NC»C! lOOl  )  .DC,NSLABS  B  !  1 O  )  .  DB . NOS  . 

1  IGRID!50) ♦ NGR DSB » DELTA. MO BS!2C0)  .  NTOB S  ,  Z I 2?(  • )  » W ! 200 )  . M I N T , 

2  IFLAG.AA.CP.EPtCPA.EPA.R! ICOI )  .F!10C1)  » NS  1  AGE » RB I G » I  BIG. 

3  RP.RO! 1001 )  .ALPHA.SMIN.AMIN.FO!  lUOl  l 

GO  TO! 1 .2  »3»4 ) , IFLAG 
TRANSPORT  EOS.  FOR  U.  V 

1  T!6)=  AA*T!5) 

T(7)»-AA»T!4) 

RETURN 

C 

C  FOR  P.  H 

2  T  !  8  )  =  AA#T! 5  ) 

T!9)  =-AA*T!4) 

T ! 1C ) =  AA*T! 7  ) 

T ! 1 1 ) =-AA*T ! 6 ) 

RETURN 

C 

C  REFLECTION 

C 

3  T!5)=AA*!1.0  +  T!4)«*2) 

RETURN 

C 

C  AND  TRANSMISSION 
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4  T(6)=AA*( 1.0  +  T( AJ**2) 

T( 7)=AAsT( 4)«T ( 5) 

RETURN 

END 

SIBFTC  SUBREF 

SUBROUTINE  SUBREF 

COMMON  T( 51 ) tNAtAI 10) »DA  »NC  »C ( 1001 )  .DC»NSLABS»3( 10 ) tOStNOS* 

1  IGRID(5C) ^NGRDSB. DELTA ,MOBS ( 200 ) » NT OBS » 4 ( 2UU ) » w » 2UU ) t M I N I » 

2  I'^L  AG»AA»  CP  tEPtCPAtEPAtRC  1001)  »F  5  1001  )  » Nb  (  AGE  » RB  I G  ♦  IBIG* 

3  RP»RO( 1001 ) ,ALPHA»SMIN»AMIN.F0( 1001  ) 

COMPUTE  R(N) 


I''LAG  =  3 
T(2)=0.0 
T { 3 )=DELTA 
T(4)=RP 

CALL  INTS(T»1.2»0»0»0»0»C»0) 

DO  1  M=l.MINT 
1  CALL  INTM 
RP=T(4) 

RETURN 

END 

SIBFTC  SHIFT  REF 

SUBROUTINE  SHIFT 

COMMON  T ( 51 ) tNA  tA  5 10) tDA  tNC  .C( 1001  ) »DC .NSLARS.B( 10 ) tDBtNOS* 

1  IGR ID( 50 ) ♦NGRDSB* DELTA .MOBS  5  200 ) »N] OBS .4 ( 20U)  tW ( 200 ) tMlN !  » 

2  I FLAGt aa ♦CPtEPtCPAtEPA .R( IOC  1 ) t F  5  ICO  1 ) . NST AGE  » RB  I G  ♦  TB I G » 

3  RPtRO( 1001) ♦ALPHA»SMIN»AMlNtFO( lOCl ) 

C 

DC  1  I=1»NC 
R0(  I  ) =R(  I  ) 

1  F0( I ) =F( n 
RET"RN 
END 

SIBFTC  SUBNLV  RFF 

SUBROUTINE  SUBNL V 5 CC » I S ) 

CO*^MON  T  (  51  )  tNA  ,  A(  IC  )  »0A  »NC  »C  5  1001  )  »DC  .NSLABb  tB  i  lU  )  .DB*NOb» 

1  IGRI D( 50 ) ♦ NGRDSBt DEL TA ♦ MOBS (200 ) tNl C3b»4 i 2ou)  ♦ w »  2uu ) » M ! N l » 

2  IFLAG,AA»CP»FP»CPA»EPA»R( ICOl ) tF 5 1^01 ) ,NS T AGE .RB  IG » TB IG » 

3  RP»RO( 1001 ) »ALPHA»SMIN»AMIN.F0( lUUl ) 

C 

C  SOLVE  N.L.  B.C.  for  CP 

IS  =  1 
J=1 

Z1=RBIG#C( J)*RO( J) 

Z2=C( J)-CC«TBIG 
DIF1=Z1-Z2 
IF (DIFl ) 1 ,2»3 

2  CP=C(J) 

RP=RO( J) 

RETURN 

C  DIFl  IS  NEG. 

1  DO  11  J=2.NC 
JZ=J 
J1=J-1 

Z1=RBIG#C( J5*R0( J) 

Z2=C( J)-CC#TBIG 

DIF2=Z1-Z2 

IF (DIF2 ) 10 .2» 12 


r>  o  r>  r> 
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10  DIF1=DIF? 

11  CONTINUE 
GO  TO  13 

12  CP=C(J1)  +  DIF1*DC/(DIF1-D1K2) 

RP=RO(Jl)  +  <CP-C( Jl) )*(RO( J2)-R0{ J1 ) )/DC 
RETURN 

C  DIFl  IS  POS. 

3  DIFl=-OIFl 
DO  21  J=2»NC 
J2=J 
J1=J-1 

Z1=RBIG*C( J)*RO! J) 

Z2=C( J)-CC*TBIG 

DIF2=Z2-Z1 

IF(DIF2)20.2»12 

20  DIF1=DIF? 

21  CONTINUE 

13  IS=0 
RETURN 
END 

SIBFTC  SUEDF  REF 

SUBROUTINE  SUBDF 
DIMENSION  U(2C0) 

COMMON  T(51  )  »NA,A(10)  .DA,NC»C(  1001)  *nC*N<:LAB5.B(  10)  tDBtNOS* 

1  IGR  I  D(  50  )  »  NGRDSBt  DELTA  ,MOBS  {  200  )  .  NT0R<;  ,2  {  2''0  )  .  W  (  2*^0  )  »MI  NT  » 

2  IFLAG,AA,CP,EP.CPA.EPA.r<(l0Cl)*F{1001)  ,  NS  TAGS  .RB  IG  ,  TBIG  , 

3  RP»RO( 1001 )  .ALPHA ,5^1 N. AMIN. FO{ lOOl ) 

INTEGRATE  TRANSPORT  EOS. 

COMPUTE  0  AND  CURRENT  F 

IFLAG=1 
T(2)=0.0 
T(3)sDELTA 
T(4)*EP 
T( 5)«CP 

CALL  INTS(T.2.2.0.0.0.0»0»0) 

DO  1  M=1.MINT 
call  INTM 

1  U(M)=T(4) 

C 

D  =  0.0 

J= (NSTAGE~1 ) *NOS 
DO  2  1=1. NOS 
M= IGR ID( I ) 

J  =  J+1 

2  D«D  +  (U(M)-W( J) )**2 
C 

1F(NSTAGE-1 )3.3.6 
C 

3  S=P*ALPHA 

10  IF(S-SMIN)4.5»5 

4  SMIN=S 

amin=aa 

CPA=CP 

EPA=EP 

5  RETURN 

c  INTERPOLATE  FOR  F(N-l) 

DO  7  1=2. NC 
11=1-1 


6 


non  nno  non  nnn  n  nn 
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COMPUTE  D*  F 

7  CALL  SURDF 
AA-AMl N 

F (  I C ) =  SW I M 

COMPUTE  R(C) 

RP=0.0 
CALL  SU3REF 
R(  IC)=RP 

WRITE(6*9A)C(IC) .AA .CPA »EPA iR { IC) .FC IC) 

8  CALL  SHIFT 

GENERAL  stage 
DO  13  N=2.NSLABS 

nstagf=n 

WR  I  TE ( 6.93 )NSTAG£ 

DC  '12  IC  =  1.NC 

SMIN=1 .OE+20 

AHIN=0,0 

CDA  =  0  « 0 

EPA=0.0 

R{  10=0,0 

F(  10=0.0 

DO  11  IA=1.NA 

find  RBIG»TBIG 

AA=A{ I A) 

IFLAG=A 
T(2)=^.0 
T( 3)=DELTA 
T(4)=0,0 
T( 5)=1.0 

CALL  INTS(T»2. 2*0. 0.0. 0.0.0) 

00  9  M=1.MINT 

9  CALL  INTM 
RBIG=T (4) 

TBIG  =  T  (5  ) 

FIND  CP=V(N-1  )  »  RP  =  R( V) 

CC  =  C(  lO 

CALL  SUBNLVI CC. IS) 

IF( IS)11. 11.14 

FIND  EP  =  U(N-1  ) 

14  IFLAG=2 
T ( 2 )=0,0 
T{ 3)=DELTA 
T(4)'=i,0 
T { 5 ) =0,0 
T { 6 ) =0,0 
T( 7)=1 .0 

CALL  INTS(T.4.2.0.0.0.0.0.C) 

DO  10  M=1.MINT 


ii 


%  - 
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12=1 

Xi=C( 1 1 ) 

X2=C( T2) 

IF(3ET(X1»CP  ♦X2»MM) 57»8*8 

7  CONTINUE 
S=1 .OE+10 
60  TO  ]0 

C 

8  Fl=FO(n) 

F2  =  F0(  12} 

DX.  =  X2-X1 
G=CP  -XI 

FX=FT  +  (F2-F1)#G/DX 
S  =  D-.  FX 
60  TO  10 
END 
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appendix  F 

PROGRAMS  FOR  WAVE  PROPAGATION: 
MEASUREMENTS  OF  TRANSIENTS 
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^OGRAM  F.l.  DETERMINATION  OF  WAVE  VELOCITY  FOR  EXAMPLE  1 
HOMOGENEO;US  J'lEDIliM  -  STEP  TtmcTIpirFORCE 

The  complete  program  is  listed: 

MAIN  program 

LAPLAC  subroutine 

DAUX  subroutine 

INITL  subroutine 

PANDH  subroutine 

LINEAR  subroutine 

NEXT  subroutine 

OUTPUT  subroutine 

The.  following  library  routines  are  required: 

MATIN'.' 

INTS/INIM 


r>r>r>  r>or»r> 


ilbFTC  MAIN  LIST  -?73- 

C 

C  VIBRATING  STRING  ~  LAPLACt  TRANSFORMS 

C 

COMMON  T(2511).NT.RT(9).WT(9)  »UOiiSl (9)  .FORCEf  9)  »UO0S  TI 9) ♦F0RCT«9) 

1  *NPRNT ,MPRNT »NP1 . NTWO » KMA X , LFlAG » N2 1 .NEQ 

2  »DELTA»TENSN.A.UPREV(18) .UOBSTXI9} 

3  ♦TT{9).U{18»a01),P{19) .H(19>1C)*C(10) 

4  .MX.F0RCTX{9)  .ATRi'c  CSPEEO 
C 

C  INPUT 

C 

1  RE  .DlOO,NT .NPRNT .MPRNT ,<MAX 
PRJNT90,NT  »NPRNT .MPRNT ,<MAX 
READlvl . (RT( I ) , I =1 ,NT) 

PRINT91,(RT{ I ) .1=1, NT) 

READ1S1 , (WT ( I ) , I .NT ) 

PRINT92, { WT{ I ) , I =1 ,NT) 

READl^l .delta .TENSN , A, AT  RUE 
PRINT93,DELTA,TENSN,A.ATRUE 
READIUI , (UOBSl { I ) . I =1 ,NT ) 

PR  INT94, (UOBSl { I ) , I =1 .NT ) 

READlOl , (FORCE ( I ) .i=l,NT) 

PRINT95, (FCRCE(  I )  ,1=1, NT) 

NP1=NT+1 
NTWO=2*NT 
DO  11  1=1, NT 
11  U(I,1)=0.0 

REAOl^^l  .  {U(  I  .  1  )  .  I=NP1  .NTWO) 

RINT96. (UI 1 . 1 ) , I=NP1 ,NTWO) 


PRODUCE  TRANSFORS  OF  OBSERVATIONS 

2  CALL  '.APLAC 

GENERATE  INITIAL  APPROXIMATION 

3  CALL  INITL 
SUCCESSIVE  APPROXIMATIONS 

4  DO  5  K=1.KMAX 
PRINT97,K 
CALL  PANDH 
CALL  LINEAR 

5  CALL  NEXT 
GO  TO  1 

C 

100  FORMAT (61 12) 

101  FORMAT (6E12. 8  ) 

90  F0RMAT{1H14X  4HNT  =,I3/5X  7HNPRNT  =,I3/5X  7HMPRNT  =.13/ 

1  SX  6HKMAX  =.I3) 

91  F0RMAT(1H04X  5HROOT S/ ( S X6E2  0 . 3  )  ) 

92  F0RMAT{IHC4X  7HWE I GHTS/ ( 5 X6 £20. 8 ) ) 
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93  F0RMAT(1H04X  7HDELTA  =.El6.e.i;X  7hTE,N£N  =*E16.8. 

1  5X20HINITIAL  GUESS  OF  A  =,l16.0/  5X8HTRUE  A  =,  E16.8> 

94  format ( 1H04X12HOBSERVATIONS/(5X6E20.8) ) 

95  FORMAT ( 1H04X12HFORCE  F(T)  /(5X6E20.8)) 

9o  FORMaT(1H04X25HINITIAL  GUESS  OF  U-PR  IMED/ (  5a(:,E20. 8  )  ) 

97  format ( lH14X13hAPPR0XlMATI0N»  13//) 

END 

SIBFTC  LAPLAC  LIST 

SUBROUTINE  LAPlAC 

COMMON  T(2511).NT»RT(9),WTt9) .UOBSl ' 9 ) .FORCE(  9)  »UOBST { 9 ) . FORCT ( 9 ) 

1  .NPRNT .MPRNT ,NP1 » NT WO » KMAX , LFL AG » N2 1  .NEG 

2  .D£LTA,TENSNtA,UPREV(l8) .UOBSTXIP) 

3  .TT(9),U(18»40l).P(19)tH(19»10)  »C(lP) 

4  .MX.FORCTX(9) .ATRUE.CSPEEO 
C 

C  THE  TIMES 

C 

DO  1  I=ltNT 

1  TT ( I ) =-AL0G(RT( I ) ) 

C  THE  TRANSFORMS 

DO  2  IS=1.NT 
UOBST ( IS)»0.0 
FORCT( IS)»0.0 
JJ=IS-1 
DO  2  1=1. NT 
RW=WT< I )»(RT( 1 

UOBSTnS)=  UOBSKIS)  +  U03SUn*RW 

2  FORCTnS)=  FORCT(IS)  +  FORCE(I)*RW 

c 

PRINTIO 

iG  F0RMAT(///1H..-13X1HT»11X  9HUOBS  (  1  .  T  )  ,  1  6X  4HF(T), 

1  14X  IHS,  5Xi4HU03STRANS( 1 .S ) .  16X  4HF(S)  /) 

DO  3  1=1. NT 

3  PRINTll.  TT(I).  UOBSKI).  FORCE(I).  I.  UOBST(I).  FORCIJJ-I —  ”  '' 

11  F0RMAT(  5XF1U.6.  2E20.8.10X  .1 3.2E20,3) 

C 

C  EXACT  transforms  OF  OBSERVATIONS 

CSPEEO=SQRT( ATRUE) 

C0VERT=CSPEED/TENSN 
DO  6  IS=1,NT 
S=IS 

FORCTX (  IS)  =  1 .0/s 

6  UOBST  X(  IS)  --TANH(  S/C  SPEED  )*F0RCTX(  IS)»C0VERT/S 
PRINT98.  (U08STX(  IS  )  . I S=1  .NT) 

98  FORMAT ( 1H04X32HEXACT  TRANSFORMS  OF  CBSERVAT I ONS/ ( 5X6E20.8 )  ) 
PRINT99.  ( FORCTXI IS ) . I S=1 .NT) 

99  FORMAT ( 1mO‘.X25HEXACT  TRANSFORMS  OF  FORCE  /  (5X6E20.8)) 

RETURN 

END 

SIBFTC  DAUX  LIST 

SUBROUTINE  DAuX  j 

COMMON  T(251l).NT.RT(9)»WT(9) .UOBSl (9) .FORCE! 9) .UOBST (B ) .FORCT ( 9) 

1  . NPRNT. MPRNT. NPl.NTWO.XMAX.LFLAG.N21 .NEG  / 

2  .0ELTA.TENSN.A.UPREV(18) .U0BSTX(9)  / 

3  »TT(9).U(18.401)»P<19).H(19.10)  .C(lO) 


ri  n  r» 
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4  tMX.F0RCTX(9)  .ATRUE.CSPPEO 
DIMENSION  V(19) 

GO  TO  ( 10G»2CO,200) tLFLAG 

NONLINEAR 

100  L=3 

DO  1  15:^1. N21 
L  =  L'*-1 

1  V(IS)=T(L) 

L=NEQ+3 

DO  2  IS=1.NT 
L  =  L  +  1 
NN=NT+IS 

2  T(L)=V(NN5 
DO  3  IS=1.NT 

L=L-t-l 
S=IS**2 

3  T(L)=S*V( IS)/T(NEQ+3) 

L=L+l 

T(L)»0,0 
RETURN 
C 

c  linear 

c 

200  L=3 

DO  4  IS=1.N21 

4  V(IS)=T(L) 

M*NEQ+3 
DO  5  IS=1,NT 
MsM+l 
NN=NT>IS 

5  T(M)=V(NN) 

DO  6  IS=1.NT 

M=M>1 

S=IS**2 

6  T(M)=S*IV( IS)  -  V(N21) *UPREV( IS)/A  >  UPREV{IS))/A 

M=M>1 

T(M)=0,0 

C 

IF(LFLAG-3)  2u. 300, 300 
300  RETURN 
C 

C  HOMOGENEOUS 

C 

20  DO  0  J=1,NP1 
C 

DO  7  IS»1.N21 
L=L-*-l 

7  V(IS)=T(L) 

C 

DO  8  IS=1,NT 
M=M>1 
NN  =  NT-HS 


r\  m  r\ 
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8  T(M)»V(NN) 

C 

DO  9  IS=1.NT 
M  =  M+1 
S=IS«*2 

9  KM)  =S*{  V{  ISi  -  V(  N21 )  •UPREVC  IS> /A  )/A 

10  T(M)=0.0 

RETURN 
END 

SIBFTC  INITL  LIST 

SUBRGUriNE  INITL 

COMMON  T (251 1 )  .NT  .RT(9 ) ,WT (9)  .UOBSl (9)  .FORCE (9)  .UOBST (9) .FORCT (9) 

1  .NPRNT  .MPRNT  .NPl  .  KTi\G .  <MA  X  ,  LFL  AG  .  N2 1  .NEO 

2  .DELTA. TENSN.A.UPREV( 18) .U0BSTX(9) 

3  .TT(9).U(18.401).F(19).H(19.10).C(10) 

4  .MX  .FORCTX( 9) .ATRUE.CSPEEO 

INITIAL  APPROXIMATION  FROM  NONLINEAR  EQUATIONS 

lflag*i 

DO  1  1=1.2511 

1  T(n=0,0 
T( 3) =DELTA 

L=NT+3 
DO  2IS=1.NT 
J=NT  >  IS 
L  =  Lfl 

2  T(L)=U(J»1) 

L»L  +  1 

T(L)=A 

r  =  i 

N21=2*NT  ♦  I 
NEO=N21 

CALL  INTS( T.NE0.2.0.0.0.0.0.0) 

MX=I 

CALL  OUTPUT 

DO  4  M1=1.MPRNT 
DO  3  M2=1.NPRNT 
CALL  INTM 
I  =  U1 
L  =  3 

DO  3  IS=1.NTW0 
L  =  L-^i 

3  U{ IS. I )=T{L) 

MX  =  I 

4  CALL  OUTPUT 
RETURN 
END 

sibftc  pandh  list 

SUBROUTINE  PANDH 

COMMON  T  (  251 1  )  .NT  .RT(  9  )  .*VT  (  9)  .UOBSl  (  9  )  .FORCE  (  9  )  .UOBST  (  9  )  .FORCT  (  9  ) 
1  .NPRNT.MPRNT.NP1  .NTW0.K,MAX,LFLAG.N21  .NEO 
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2  »D!;L  TA  »  TCNS.N  » A  fUPREV  ( 1  8  )  tUOBbFX  (  9  ) 

5  »TT(9) .U(16.401)»P(19)»H(19»10)»C(10/ 

A  »MX .FORC^x ( 9) ,ATRUE.CSPE£D 

c 

LFLAG=2 

DO  1  1=1,2511 

1  T(I)=O,0 
T( 3)*DELTA 
NEQ= (NT+2 ) ♦N21 

L  =  4  +  N21  NT 
T  (  L  )  =  1 . 0 
DO  2  1=1, NT 
L=L  +  N21  +  1 

2  T(L)=1.0 

1  =  1 

DO  12  15=1, NT 
12  UPREV( !S)=U( IS,I ) 

CALL  INTS(T,NEQ,2»0,C,0,0,0,0) 

NEQ3=NEQ+3 
DO  4  Ml  =  l,yPR,NT 
DO  3  M2=1 ,NPRNr 
CALL  INTM 
1  =  1+1 

DO  3  15=1, NT 

3  UPREV( I5)=U( 15,  I ) 

4  CONTINUE 
C 

L  =  3 

DO  5  15=1, N21 
L  =  L  +  1 

5  P(I5)=T(L) 

C 

DO  6  J=1,NP1 
DO  5  1 5=1 ,N21 
L  =  L  +  1 

6  H(I5,J)=T<L) 

C 

10  FORMAT (F20.6,5E20.8/(5G20.8)) 

RETURN 

END 

ilBFTC  LINEAR  LI5T 

SUBROUTINE  LINEAR 

COMMON  T(2511),NT,RT{9),WT(9) ,U0BS1 ( 9 ) , FORCE ( 9) ,UOB5T ( 9 ) , FORCT ( 9 ) 

1  ,NPRNT,MPRNT,NP1 ,NTrtO,KMAX,LFLAG,N21 ,NEQ 

2  ,DELTA, TENSN,A ,UPREV ( 1 8 ) ,UOBSTX(9) 

3  »TT(9),U(18,401),P(19),H(19,10),C(10) 

4  ,MX,F0RCTX(9)  ,ATRUE,C5PEE0 

DIMENSION  AM( 5C  ,50)  ,BV(50) , IPIVOT(50) ,PlvOT(50) , INDEX? 50,2) 

C 

DO  2  1=1, NT 
I I=NT+I 
DO  1  J=1,NP1 

1  AMI  I , J)=H(  I  I , J) 

2  BV(  I ) =FORCT ( I ) /TENSN  -  P(II) 


fNJ  O 
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C 

I  =NT  +  1 

DO  3  J=1.NP1 
AM( I »J)=0v0 
DO  3  IS=1.NT 

3  AM(  I  ♦  J)=AM(  I  .J )  +  H (  I S »J ) ♦H ( I StNPl  ) 

0V( I ) =0.0 

DO  4  I  S= 1 »NT 

4  6V(I)=8V(I)  +  (U03ST(IS)  -  P (  I S I  ) »‘M  I S  .NP 1 ) 

C 

DO  5  1=1, NDl 

5  PR  INT9, ( AM(  I  ,J )  ,  J=1  ,NPl ) ,BV ( I  ) 

9  FORMAT(5X6E20.8) 

C 

CALL  MATINV^  AM,.\P1  ,ev,  1  ,  DE  T  ERM  ,  P  I  VOT  »  INDEX  ,  IP!  VOT  ) 

C 

DO  6  1=1, NPl 

6  C(  I  )=BV( I ) 

A=C(NP1 ) 

PRINT9,(C( I ) , 1=1, NPl) 

RETURN 

END 

JIBFTC  NEXT  LIST 

SUBROUTINE  NEXT 

COMMON  T(2511),NT,RT(9),WT{9),U0BS1(9),F0RCE(9) ,U0BST ! 9 J ,F0RCT( 9) 
1  ,NPRNT ,MPRNT ,NP1 ,NTwO,KMAX,LFLAG,N21 ,NE0 
,DELTA,TENSN,A,UPREV( 18) ♦U0B5TX(9) 
,TT(9),U!ln,40l),P(19),H(19,10),C«10) 

4  ,MX  ,F0RCTX ( 9 ) ,A ' RU£,CSP££D 
C 

LFLAG=3 
NEG=N21 
DO  1  I=i,2511 

1  T(I)=0.0 

T ( 3  )  =DFLTA 
L=NT+3 

00  2  1=1, NPl 

J=NT+I 

U( J,1  )=C( I ) 

L  =  L  +  1 

2  T(L5=C(n 

1=1 

CALL  INTS( T, NEC, 2»C, 0,0, 0,0,0) 

MX  =  1 

CALL  OUTPUT 
C 

DO  4  Ml=l ,MPRNT 
DO  3  M2=1,NPRNT 
CALL  INTM 
1  =  1  +  1 
L  =  3 

DO  3  IS=1,NTW0 
L  =  L  +  1 

3  U(!S,I)=T(L) 

MX  =  I 
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4  call  output 

RETURN 

END 

SlbFTC  OUTPUT  LIST 

SUBROUTINE  OUTPUT 

COMMON  T(251 n ,NT.RT(9) .WT (9) .UOBSl (9) .FORCE! 9) .UOBST ( 9 ) . FORC T ( 9 } 

1  »NPRNT.MPRNT,NPl,NTWO.KMAX»LFLAG.N2i»NEC 

2  .DELTA.TENSN.A,UPRCV(18) .UOBSTX(9) 

3  .TT(9),U(13.401) .P(19) .H( 19.10) »C<1C) 

4  .MX .FORCTX ( 9  )  .ATRUE .CSPEEO 
C 

I  =MX 

PRINT10.T(2) 

1C  FORMAT(1H04X  3HX  =.  FlO.6) 

PRIMTll . IU( IS. I ) . IS=1.NT) 

PRINTll . (U( IS.  I  ) . IS  =  NP1 .NTWO) 

1 1  FORMAT ( lH04X6E2C.a/ ( 5X6 E 2  0.8) ) 

RETURN 

END 


349 
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PROGRAM  F. 2.  DETERMINATION  OF  WAVE  VELCCirf  FOR  EXAMPLE  2 
mOG~ENEOUS~  "MEDTDH .  DELTA.  OTCTIOIT 

A  partial  progr.am  is  listed: 

LAPLAC  subroutine 

The  follov^ing  subroutines  are  required  from  Program  F. 
MAIN  program 
DAUX  subroutine 
INITL  subroutine 
PANDH  subroutine 
LINEAR  subroutine 
NEXT  subroutine 
OUTPUT  subroutine 

The  following  library  routines  are  required: 


MATINV 

INTS/INTM 


o  n 
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iloFTC  LAPlAC  list 

SUBROUTINE  LAPlAC 

COMMON  T(2511)*NT.RT(9)»WT(9) » JOB  SI  (9)  » FORCE ( 9 )  tUOBST ( 9) »FORCT ( 9 ) 

1  tNPRNT»MPRNT  .NPl  .NTW0»KMAX»L.FL,AG»N21  «NEQ 

2  .delta. rENSN,A,UPREV( 18 ) .U02STX(9) 

3  .TT(9).U(18.4C1) .P(19; .H(19»10) .CIlO) 

A  .MX .FORCTX ( 9) .ATRUE .CSPEEO 

C 

c  FOR  delta  FUNv.TION  FORCE 

c 

c 

C  THE  TIMES 

C 

DO  1  1=1, NT 
1  TT( I ) =-AL0G(RT( I ) ) 

EXACT  transforms  OF  OBSERVATIONS 
CSP£ED=SQRT(ATRUE) 

C0VERT=CSP£ED/T£NSN 
DO  6  IS=1 ,NT 
S=IS 

FORCTXI IS) =1.C 

6  U06STX( IS) =TANh(S/CSPE£D)*FORCTX< IS)*C0VERT/S 
PRINT98.  (UOoSTXI IS) , IS=1 .NT) 

93  FORMAT  (  1H04X32HEXAC’-  TRANSFORMS  OF  OBSERVAT  I  CNS/ (  5  X6£20 . 8  )  ) 
PRINT99,  ( rORCTX(  IS  )  .  IS  =  1  ,NT) 

99  FORMAT ( 1HC4X25HEXACT  TRANSFORMS  OF  FORCE  /  (SX6E20.8)) 

DC  20C  1  =  1, NT 
20-  FORCT ( I ) =FCRCTX { I ) 

C 

C  THE  transforms 

CO  2  IS=1'NT 
U08ST { I S) =0.0 
JJ=IS-1 
DO  2  1=1, NT 
RW  =  WT ( I ) * { RT i  I  )  *»JJ  ) 

2  UOBST{IS)=  UOaSTdS)  +  U0BS1(I)*RW 
c 

PR INTIO 

lu  FORMAT(///1Hu13X1HT,11X  9HUOBS( i ,T) ,16X  4HF(T), 

1  i4X  IHS,  6X14HU03STRANS(  1»S) ,  16X  4HF(S)  /) 

DC  3  1=1, NT 

3  PRINTll,  TT(I),  UOBSKI),  FORCEd),  I,  UCGSTIl),  FORCT(I) 

11  FORMAT!  5XF10.6,  2 E 20 . 8 , 1  OX  ,  I  5 , 2E20  •  8 ) 

RETURN 

END 


47 
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PR0GR^_F.3.  PRODUCTION  OF  OBSERVATIONS  FOR  EXAMPLE  3 
TNHOMOGENEOIfS  MEDim  WITH  DELT'A  FUNCTION 
INPUT  '  ' 

The  complete  program  is  listed: 

MAIN  program 

DAUX  subroutine 

The  following  library  routines  are  required: 
MATINV 
INTS/INTM 


i>  JOB 

i-  I6JC3 

i>  I  tiF  T  C  MA  I  N 

C 

C  PHASE  I. 

C 
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26''9»VIBR3*KC]6  0»5»10vj»l00»C 

'■',AP 

REF 


INHOMOGENEOUS  STRiNG*  LINEAR  PROFILE. 


LAPLACE  TRANSFORMS. 


DIMENSION  C ( 5- . 50 )  .D( 50 )  . ' P IVOT ( 50 )  ,P I VOT ( 50 )  .  I NOEX ( 50  »2  ) 
COMMON  T ( 1945) ,H( 18»9) .  N2 ♦ NT , NPRNT . MPRN T , DEL T A . A » 0 » U ( 18) 

C 

C  INPUT 

C 


C 

/- 


c 


c 

c 


1  READ100,NT  ,NPRNT  ..'•'.PRNT 
PR  INT9C ,NT .NPRnT ,MPRNT 
REAOl..  1  , delta  ,A  ,« 
PRINT91,DELTA,A,R 

■  ’  =  ?^fNT 
NE0  =  N2'*‘'  \  T 

INITIALIZE 

DO  2  1=1. 1945 

2  I  (  I  )  =  ^  .  vj 

T ( 3 ) =DEL  TA 
DO  3  J=1,NT 
DO  4  I=1,N2 

4  H(I.J)-0.u 

<=NT  +  J 

3  H(<.J)=1.C 

L  =  3 

DO  5  J=1.NT 
DO  5  I =1  ,N2 
L  =  L+1 

5  T ( L ) =n ( I , j  ) 

CALL  INTS(  T  .NEQ.2.C.0'<C.t  y  ^  .0) 
N  3  =  N  E  0  +  3 

PR  I  NT92  ,  T  (  2  )  »  (  T  (  I  )  .  I  =4  ,,N3  ) 
INTEGR  n  E 


DO  10  M  1  =  1  » '■' P  R N  T 
DC  9  -12  =  1.  NPRNT 
9  CALL  INTV 


1C  FRINT93.T(2) 

.  (  T  (  I  )  .  I  =  4  ,  N  3  ) 

L  I  N  E  A  n 

SY  STE  M 

^  =  3 

DO  11 

J=1  ,NT 

DO  11 

il 

L  =  L+1 

11  H( I .J)=T(L) 

DC  12  1=1. NT 
I  I  =NT-^  I 

DO  12  J=1.NT 

12  C(  I  .J)=H(  I  I  .J) 

DO  13  I  =  1 . N  r 

13  D (  I  )  =  i  .0 

DO  15  1=1. NT 

15  PRINT97, (C(  I  .J)  .J=l  .NT  ) 


fti 


o  o 
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C 

CALL  MAT  !  ,\V(  C  *NT  tD.  1  .DETEi^>'  tP  1  VOT  .  1  NDEX  ♦  i  P  1  VOT  ) 
PR1NT94*(1»D(1)  ’  =  l»i\T) 

observations  U0a5T(l»S) 

DC  lA  1=1* NT 
U( 1 ) =v.G 
DO  14  J= 1 ,NT 

14  U  (  1  )  =U  (  1  )  0  (  J  )  »H  {  I  .  J  ) 

PR1NT9S*  (  1  .U(  I  )  ♦  1  =  1  ,,NT  ) 

PUNCH95  * ( U (  I  )  V  I  =1  .NT ) 

GO  TO  1 
C 
C 

IOC  FORMAT (61 12) 

101  FORMAT (6E1 2.8 ) 

9u  FORMA  I  ( IH 1 4X . 6  I  20 ) 

91  forma T { 1 HC4X  .  6E20. 6  ) 

92  FORMAT ( ///3X3HX  =.F7.3/{2X7Llc.d)) 

93  FORMAT  (  lH04X3riX  = . F 7 . 3 / ( 2 X 7  £  1 8 . 8  )  ) 

94  FORMAT ( /// 19X  IHI ,22XaHSLOPL (  I  ) / ( 1 1 X  1  6  ,  E 3 0 . 8  )  ) 

95  FORMAT ( /// 19X1HI , 22X8HU02ST (  I  ) / ( 1 5X 1 5  ,  £30 . 8  )  ) 

96  FCRMAT(6'Z12.6) 

97  FOR^'AT  (  2X7Eia  .8  ) 

END 

SIBFTC  OAUX  ref 

SUBROOTINE  OAuX 

COMMON  T ( 1945  )  *H( 18 *9)  ♦  N2 ♦ N T ♦ CP R\ T * ' ‘PRN T ♦ DE L T A » A  *  3 » U ( 1 6  ) 

L  =  3 

DC  1  J=1,NT 
DC  1  I  =  1.iN2 
L  =  L-*-i 

1  H  (  1  *  J  )  =  T  (  L  ) 

DENOM=A  +  b*Tl2) 

DO  3  J=1,NT 

DO  2  I = ] *NT 
L  =L  +  1 
I  I =NT+  I 

2  T(L)=H( [ I , J) 

DO  3  1=1 tNT 

L  =  L-^1 
F= 1**2 

3  T ( L ) =F*H( I . J ) /OENOM 
RETURN 

END 
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PR^R^_F^4._  DETEI^  NATION  OF  WAVE  VELOCITY  FOR  EXAMPLE  3  - 
INHOMOGENSJuS  M^IW  WlTlI  DELT7^-FUNCT10N~1:"NPUT 

The  complete  program  is  listed: 
main  program 
IMITL  subroutine 
PANDH  subroutine 
LINEAR  subroutine 
OU'^PUT  subroutine 
DAUX  subroutine 
NEXT  subroutine 

The  follivmg  library  routines  are  required: 

MATINV 

INTS/INTM 


ri  o  ri 
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SI8FTC  MAIN  REF 
C 

vibrating  string  -  LAPLACE  TRANSFORMS  -  C'-*2  =  A  +  B*X 

COMMON  T  {  251  1  )  »NT  .RT  (  9  )  ♦  a’T  (  9  )  *00651  (  9  )  *FORCE  (  9  )  .U035T  {  9  )  .FORCT  {  9  ) 

1  .NPRNT  ,MPRNT  .NP  1  .  NTa'O  ♦KMAX  *  LFLAG*N22*N?2*B*8(RUE*NEQ 

2  .DELTA.TENSN*A,0PREV(18) *UGbSTX{9) 

3  *TT{9)*U(16*401)*P(19)*.;(19*iw)  *C(lO) 

4  .MX .FORCTX ( 9 ) .ATRoE.CSPEED 

INPUT 

1  READIuO.NT .NPRNT ,MPRNT .<MAX 
PR  I  NT9u , NT .NPRNT .MPRNT .KMAX 
REAOlol .  ( RT (  I  )  .  I  =  1  . NT ) 

PR  I  NT91 . ( RT (  I  )  ,  I  =  1  ,NT ) 

READlwl  .  (  '.sT  (  I  )  ,  1  =  1  ,NT  ) 

PRINT92. (aT ' I ) . I=1*NT ) 

READI^..  1  .DELTA  .TENciN  .A.ATRUc  *8  .jTRoE 
PRINT93.0ELTA.TENoN.A.ATROE.t3.8TRJE 
READlol . ( uOdST ( I ) , I =1 .NT )  ✓ 

PR  I NT94.  { UOooT (  I  )  . I =i  .NT ) 

READIvjI.IFORCTI  I)*I=1.NT} 

PRINT95* (FORCTI I ) *I=1*NT) 

NTW0=2*NT 
N22=NTWO  +  2 
NPl =NT+1 
NP2=NT+2 
DO  11  1=1 .NT 
11  U{ I . 1 ) =v.C 

R  £  A  D 1  V  1  ,  { ,  j  (  I  .  1  )  .  I  =  N  P  1  ,  N  T  >■.  0  ) 

PR  INT96.  (  U<  I  .  1  )  .  I  =  NP1  .NT  A'O  ) 

C 

C 

^  GENERATE  INITIAL  APPROX  1 MA T . ON 

C 

3  CALL  INITL 
r 

C  SUCCESSIVE  APPROXIMATIONS 

4  DO  5  N  =  1 » KMAX 
PR  I NT97 . < 

CALL  PANDH 

call  linear 

5  call  NEXT 
GO  TO  1 

C 

lUO  F0RMAT(6I12) 

1^1  FORMAT ( 6  E I  2  »  b  ) 

90  FOR^-'AT  (  :h14X  4HNT  =.I3/5X  TnNPRNT  =.I3/5X  TH^PRNT  =.13/ 

1  5X  6HK‘-'A  X  =  .  I  3  ) 

91  FORMA' (IH'AX  5HR00TS/( 5X6E2U.6 ) ) 

92  FORMA  T  (  1H',4X  7H0E  I  GHT5/ (  5  X6  E2C  .8  )  ) 

93  FORMATIIHOAX  7HDELTA  =.E16.b.5X  7hTEN<^  =.E16.8. 

1  5X2CH1N1T1AL  Guess  of  a  =iE16.8-  5X8HTRUE  a  =,  E16.b/ 

2  5X20nI  INITIAL  GUESS  OF  6  =.r'16.3.  SxeHlRuE  B  ->  E16.d) 

94  FORMAT ( 1H04X 1 2hOQoERVA  T I ONS/ ( 5X6E 2^  -  8  )  ) 

95  FORMAT  (  iHC4Xi2HF0RCE  F(T)  /  (  5  X6  E  2 1- .  0  )  ) 

96  format ( 1H04X2  5M I N I T I AL  GUFSo  OF  U-PR I  MED/ ( 5X6E 20 . 8 )  ) 

97  FORMAT { 1H14X1 3HAPPR0X I  MAT  ION.  13//) 
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end 

ibftc  ini  tl  list 

SUBROUTINE  INITL 

coy NON  T{2511)»NT»RT(9)*>.T(9) »UOBSl (9) *FORCE{9)  »UOBST(9)»FORCT(9) 

1  »NPRNT  ,MPRNT  ,i\Pl  »  N  F  .%0  ,  KMA  "  ,  LFLAG  ,  N22  »NP2  .B.BTRUE  ♦NEQ 

2  tDELTA»TENSN»A,UPREVil8)*  UOBSTX i 9 ) 

3  *TT{9)»U{16»AC1),P(19),H(19*.10)  .CUO) 

4  »MX ,FORCTX ( 9 ! » ATRUE *CSPE£0 
C 

^  INITIAL  APPROXIMATION  FROM  NONLINEAR  EQUATIONS 

lflag=i 

DO  1  1=1,2511 

1  T  {  I  )  =  U  .  G 

T ( 3 ) =DELTA 
L=NT+3 
DO  2  I S  =  1 ,NT 
J=NT  +  IS 
L  =  L+1 

2  T{L)=U(J,1 ) 

L  =  L+1 
T (L ) =A 

L  =  L+1 
T(L)=B 
C 

1  =  1 

N22=2*NT  +  2 
NEO=N22 

call  INTSIT ♦NE0»2»0»0»0*G»o,0) 

MX=  I 

CAI.L  OUTPUT 
C 

DO  4  M1=1,MPRNT 
DO  3  M2=1,NPRnT 
CALL  INTM 
1  =  1  +  1 
L  =  3 

DO  3  I S= 1 , NT WO 
L  =  L  +  1 

3  U(  IS, I  )  =  T(L) 

M>;=  I 

4  CALL  OUTPUT 
RETURN 

END 

ildFK  PANDH  LIST 

SUBROUTINE  PANDH 

COMMON  T{2511),NT,RTi9),WT(9)  ,U0dS1 19)  ,r  ORCE ( 9 )  , JOdS I ( 9 1  , PQRC  1(9) 

1  »NPRN  '  ,MPK/NiT  ,NP1  ,  NTrtO,<MAX  ,LFlaG,N2  2  ,NP2  ,B  ,B  I  RuE  ,NEG 

2  »DELTA,TENSN,A,UPREV(18) » UOBSTX { 9 ) 

3  »TT{9),U(16,A01),P(19),H(19,10),C(10) 

4  »MX ,FORCTX ( 9 ) ,ATRUE fCSPEED 
C 

LFLAG=2 
DO  1  1=1 ,2511 

1  T (  I  ) =U  .0 
T ( 3 ) =DELTA 
NEO= ( NT+3 ) *N22 
L=4  +  N22  +  NT 
T (L) =1 ,0 
DO  2  I=1jNP1 
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L  =  L  +  "i?2  +  1 

2  T ( L )  =  1  .0 

1  =  1 

DO  12  I S= 1 .NT 
12  UPREV(  f  S) =U(  I S. I) 

CALL  INTS(T .NEO. 2* 0.0. 0.0. 0.0) 

NE03=NE0+3 
DO  A  M1=1.KPHNT 
DO  3  M2=1.NPHNT 
CALL  INTM 
1  =  1  +  1 

DO  3  IS=1.NT 

3  UPREV( IS) =U( IS. I ) 

4  CONTINUE 
C 

L  =  3 

DO  5  IS=1.N22 
L  =  L+  1 

5  P( IS)=T(L) 

C 

DO  6  J=1.NP2 
DO  6  IS=1.N22 
L  =  L+1 

6  H(  IS. J ) =T ( L ) 

C 

RETURN 

end 

i-IBFTC  LINEAR  LIST 

SUF3ROUTINE  LINEAR 

COMMON  T(2511).NT.RT<9).4T(4)  » wOttSl  ( 9 )  .FORCE ( 9 )  .JOB ST ( 9 ) . FORC  T ( 9 ) 

1  .NPRNT  .MPRNT  .  NP  i  .  NT  wO  .  O'.A  X  .  lF  LAG  .  N2  2  .NP2  .B.BTRJE.NEQ 

2  .D£LTA.TENSN.A.JPR£V(18) .U0bSTX(9) 

3  *TT(9!»U(18.4v;1).P(19).H(19.1^).C(1C) 

4  .MX .FORCTX ( 9 ) .ATRuE.CSPEED 

DIMENSION  AM  <  50 . 50 )  .BV ( 5C )  .  IP  I VOT ( 50 )  .PI VOT ( 50 )  . I NDEX ( 50 . 2 ) 

C 

DC  2  1=1. NT 
I  I=NT+I 
DO  1  J=1.NP2 

1  AM( I  .J)=H(  I  I  .J) 

2  8V(  I  )  =FORCT  (  I  ) /TENSN  -  PHI) 

C 

C 

DC  4  11=1.2 
I  =NTi-I  I 
DC  3  J=1.NP2 
AV( I .J)=0.C 
DO  3  IS=1.NT 

3  AM( I . J ) =AM( I . J )  +  H ( I S » J ) ♦H ( I S . I ) 

3V( ! ) =0.0 

DO  4  IS=1  .NT 

4  9V(I)=3V(I)  +  (UOBST(IS)  -  P (  I S )  ) (  I  S  .  I  ) 

C 

DO  5  I=1.NP2 

5  PR  I NT9  .  ( AM (  I . J )  . J=1 .NP2 )  .BV ( I  ) 

9  format ( 1X1P7E18. 8  ) 

C 

CALL  MATINV(AM.NP2.6V.1 .DE T ERM . P I VOT .INDEX  .  I  PI VOT ) 

C 


DO  6  I = ] .NP2 
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6  C ( I ) =bV( I ) 

A=C ( NPl ) 

n  =  r  ( ^:P2 ) 

PRINT9, (C(  I  )  .  1  =  1  «NP2) 

RETURN 

EiND 

SIBFTC  OUTPUT  LIST 

subroutine  output 

COMMON  T  (  25  1  1  )  .NT  .RT  (  9  )  .><T  (  9  )  .UOLSl  (  9  )  .FORCE  (  9)  .UOdST  (  9  )  .FORCT  (  9  ) 

1  .NPRNT .MPRNT .NPl . NT WO . <MAX . LFLAG . N2 2  .NP2.B.BTRUE.NEG 

2  .DELTA. TENSN.A.UPREV( 18) .UOBSTX(9> 

3  .TT(9).U(18.401).P(19).H(19.10).C(1C) 

4  .MX .FORCTX ( 9 ) .ATRUE.CSPEED 
C 

I=MX 

PR  INTIU.T ( 2  ) 

10  FORMAT(1H04X  3HX  =- .  F10.6) 

PR INT 1  1  . ( U(  IS.  I  )  .  I S  =  1  .NT ) 

PR  INT 1  1  . ( U(  I S. I  )  . IS  =  NP1 .NTwO) 

11  FORMAT ( 1H01P7E18. 6  ) 

RETURN 

END 

ilBFTC  DAUX  REF 

SUBROUTINE  DAuX 

COMMON  T ( 251  1  )  .NT .RT ( 9 ) . WT ( 9)  . JUoSl (9)  .FORCE (9)  .UOBST (9)  .FORCT (9) 

1  .NPRNT  .MPRNT  .NPl  .  N  T  WO  .  C'lA  X  ,  lFLAG  .  N2  2  .  NP2  .B.BTRUE  .NEQ 

2  .DELTA.TENSN.A.UPREVdS  )  .UOBST  X  (9) 

3  .TT(9).U(ltiv40l),P(19).ri(19.1v').C(l0) 

4  .MX .FORCTX ( 9) .ATRjE.CSPEEC 
DIMENSION  V(19) 

N21=NTW0  +  1 

GO  TO  (  100 .2-'^  .200  )  .LFlAG 

c 

C  NONLINEAR 

C 

100  L=3 

DO  1  IS=i.N22 
L  =  L+1 

1  V  (  I  S  )  =  T  (  L  ) 

L=NEO+3 
DO  2  IS=) .NT 
L  =  L^1 
NN  =  NT+  IS 

2  T(L)=V(NN) 

DO  3  IS=1.NT 

L  =  L+1 
S=IS**Z 

.£NOM=V(N21)  +  V(N22)*T(2) 

3  T ( L  )=S*V(  I S) /DENOM 

L  =  L+1 
T ( L) =0.0 
L  =  L+1 
T(L)=O.0 
RETURN 
C 

C  LINEAR 

C 

200  L=3 

DO  4  IS=1.N22 
L  =  L  +  1 


WWW 
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4  V  (  I  S  )  =  T  (  L  ) 

M  =  NEQ-*  3 
DO  5  IS=1.NT 
V,  =  M+1 
NN  =  M+  I  S 

5  T  (  V  )  =  V  (  N  N  ) 

DO  6  I S=1 .NT 

M  =  M+  1 
S=  I  S**2 

DEN0,M  =  A  +•  B*T(2) 

6  T  (K)  =S*  (  V(  I  S  j /DENOM  -  (  V(N21)  +  V  ( ,\2  2  )  *  T  (  2  )  )  *UPRE  V  (  I  S  )  / 

1  DEN0M**2  UPR£V(  IS  ) /DENOM) 

M  =  M+  1 
T  (  M  )  =  0  .  C 
M  =  K+1 
T  (  M  )  =  0 , 0 
C 

IF(LFLAG-3)  2^.30^.300 
300  RETURN 

HOMOGENEOUS 

20  DOlo  J=1.NP2 

DO  7  IS=1.N22 
L  =  L-»-l 

7  y  (  I  S  )  =  T  (  L  ) 

DO  8  IS=1.NT 
M  =  M+  1 
NN  =  NT+  IS 

8  T(M)aV(NN) 

DO  9  IS=1 .NT 
M  =  M+1 
5= I S»#2 

DENO'’  6*T(2) 

9  T(M)=-  (V( IS) /DENOM  -  ((V<N215  +  V ( N2 2 ) *T ( 2 ) )  *UPREV(IS))/ 

1  DENOM##2) 

M  =  M+  1 
T  (  M  )  =  0 . 0 
M  =  M+1 

10  T(M)=o,G 
RETURN 
END 

SIBFTC  NEXT  REF 

subroutine  next 

COMMON  T(2511).NT.RT(9).WT(9) .UODGl (9) .FORCE (9) .UOBSTt9) .F0RCT(9) 

1  .NPRNT .MPRNT  ?NP1 ,NTWO.KMAX.LFLAG.N22 .NP2 .B . STRUE  »NEQ 

2  .DELTA  jTENSN.A.UPREVdS)  .UOB5TX(9) 

3  .TT(9).U(18.401),PI19).H(19»10).C(10) 

4  .MX.F0RCTX(9! .ATRUE.CSPEED 
C 

LFLAG=3 
NEG=N22 
DO  1  1=1.2511 
1  T (  I  )  =u.0 
T( 3)=0ELTA 
L=NT+3 

DO  2  1=1. NP2 
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J  =  N  T  +  1 
U( J,1  )=C{  I  ) 

L  =  l  +  1 

2  T(L  =C(  1  ) 

1  =  1 

CALL  INTS( T.NEQ.2*0.0.0.0.0 >0) 
MX  =  1 

CALL  OUTPUT 

DO  4  M1=1,MPRNT 
DO  3  M2=1.NPRNT 
CALL  INTM 
1  =  1  +  1 
L  =  3 

DO  3  IS=1»NTW0 
L  =  L+1 

3  U( IS. I )=T( L) 

MX  =  I 

4  call  OUTPUT 
RETURN 

END 


321 
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APPENDIX  G 

FOR  WAVE  PROPAGATION : 
MEASUREMENTS  OF  STEADY  STATES 


PROGRAM  G. 1.  PRODUCTION  OF  REFLECTION  COEFFICIENTS 


The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 

The  following  library  routine  is  required: 
INTS/INTM 


n  r  .  o  rv  o 
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iJOB  2  609.  INDF.X.I<;0160»3»10C.100.C 

ilBJOB  INDEX  MAP 

i IBFTC  MAIN  LIST 

CPHASE  I 

COMMON  T  (  399  )  »N  .NPRNT  .MPRNT  tDELlA  .ZMAX  .A  »B  »F  (  S  )  ■>  W  ^  5  )  »R  f  5  )  »S  (  5  )  ♦ 
1  ETA* 

integrate  BACKWARDS  FROM  ONE  TC  ZERO 
INPUT 

1  READl<^C.N.NPRNTtMPRNT 
PRINT90.N  .NPRNT  ».MPRNT 
READHJl  .DEL  lA.ZMAX,A»B 
ETA  =  A 

PRINT91 ,DELTA,ZMAX.A.B»ETA 
RlAOIoI , {F ( I  ) . I  =  1 .N  ) 

PRINT92»(F ( I ) . I=1»N) 

TPI =2. 0«3. 1415927 
DO  2  I=1»N 

2  >.  (  I  )  =  TPI*F{  I  ) 

PRINT93»{W{ I ) .I=1.N) 

INTEGRATE 

DO  3  I=l»399 

3  T(n=0.0 
T{2)»1.0 
T{3)»DELTA 
RR»0.0 
DO  4  I=ltN 
R{  n=RR 

4  S{I)=0«0 
NEQ=2»H  +  1 
J«=NEQ  +  3 

L*3 

DO  40  I=1.N 
L  =  L-*-l 

40  T{L)=R(I) 

DO  41  I»1.N 

L  =  L  +  1 

41  T{L)=S{n 
T{ J)=ETA 

GALL  INTSI T»NEQ»2.CfOtO»CfO»0) 

CALL  OUTPUT 

DO  8  Mlsl.MPRNT 
DO  5  M2=l. NPRNT 

5  CALL  INTM 
L»3 

00  6  '“l.N 
L«L  +  1 

6  R(n»T(L) 

DO  7  1=1, N 
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■-  =  L  +  1 
S( I )=T(L) 

L  =  L<-1 
ETA=T(L) 

CALL  OUTPUT 

"0  TO  1 

F0RMAT(6I 12) 

FORMAT (6E 12.8 ) 

FORMATdHlAX  2HN  =.I3.5X  7HNPRNT  =,I?,5X  7HMPRNT  -.13) 

FORMAT UHC^X  THDELfA  =,E16.8.5X  6H2MAX  =.£16.8/ 

5X  3HA  =  .E16.8 .5X3H£  =.E16.3.5X  9H I NDEX ( 0 )  =  .  1 16 . 8 ) 
FORMAT  (  IHOAXl  IHFREQOENCI  ES/5X‘)£20.a» 

FORMAT  (  1HC4X19HAMGULAR  F R t O'jE XC  I  E S/ 5X 5 E20 . 8  ) 

END 

ilBFTC  DAUX  list 

SUBROUTINE  OAUX 

rOMMON  T  (  399  )  ,N  .NPRNT  .MPRNT  .DELTA  .2MAX  .A.d.F(5).>«(S).R(5).S(S)» 
1  ETA 
C 

DIMENSION  RV( 5 ) .SV( 5) 

C 

L  =  3 

DO  I  I=1»N 
L  =  L  +  1 

1  RV(I)=T{L) 

DO  2  1=1. N 

L  =  L  +  1 

2  SV{n=T(L) 

L  =  L  +  1 
ETA=T(L) 

C 

ETAPR=2.0*B*(T{2)-1.C) 

ETA2=ETAPR/ETA 

c 

DO  3  I=1.N 
L^L  +  1 

3  T(L)=v9.6*ETA2  +  2 . 0*ETA*W  (  I  )  »SV(  1) 

1  -  0. 3»ETA2* (RV( I ) **2  -  SV(I)**2) 

DO  4  1=1, N 
L  =  L  +  1 

4  T ( L) =-2.0*ETA*w( I ) •RVI I )  -  ETA2*RV ( I ) »SV ( I  ) 

L=L+  1 

5  T(L)=ETAPR 
RETURN 
END 

SIBFTC  OUTPUT  LIST 

SUBROUTINE  OUTPUT 

COMMON  T(399)  .  N  ,  NPRNT  .MPRNT  .DEL  T  A  .  ZMAX  .  A  ,  B  .  F  (  5  )  ,W(!?),R(6).S(5)» 
1  ETA 
C 

PRINT  10.T(2).ETA 

10  FORMAT  r /// 1H.^4X3HZ  = .  F  10 . 6 . 5X  7H  I  NDEX  =,El6.8) 

PRINTll 


7 


8 

C 


100 

ici 

90 

91 

92 

93 
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DO  1  I=i,N 

AMP  =  SGRT  (  R  (  I  )  •*2  S(I)*«2) 

PHI  =ATAN2  (  Sn  )  .R(  I  )  ) 

1  PRINT12.F(I),W(n,R{I),S(l)  .AMP. PH  I 

11  format ( 1H013X11HFREOUENCY  F.  7X13HANGULAR  FREO» . 

1  Ua'i^HREAL  Part,  l  1X9HIMAG  »NARY  .  l  l  XPHAMPL  I  TUOE  .  l  5X5HPHAS£  ) 


12  F0RMAT(5X6E20.8) 

RETURN 

END 

SENTRY 

MAIN 

3 

1C 

100 

-•OCi 

1.0 

1.0 

1.0 

2.0 

3.0 

i IBSYS 


ENDJCB 
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PROGRAM  G_.  2^  _  DETERMINATION  OF  INDEX  OF  REF^CTI^ 
The  complete  program  is  listed: 

MAIN  program 
DAUX  subroutine 
OUTPUT  subroutine 

The  following  library  routine  is  required: 
INTS/INTM 
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iJ03  2609, INDEX2.<0160»5»0,1C0,P 

SItiJOB  MAP 

SIBFTC  MAIN  REF 

CPHASE2  INDEX  CF  REFRACTION  ETAIA,B) 

C 

COMMON  T ( A35 )  .N ,NPRNT ,MPRNT ,KMAX  » OELT A , 2MAX , A  ,B  »E T A , F ( 5 ) ♦WI 5 )  » 

1  NTWO  ,N2P2  *0066  (  1 0  i  » LFL AG  ,  N2P  1  ,  X  (  7  ,  1  )  »  P  (  6  ,  AO  I  )  »H  I  6  »  2  *  AOl  W 

2  BVEC(2) ♦AMAT(2»2)  »R( 5) .S( 5)  , MX, NEC 

INPUT 

1  READ100,N,NPRNT ,MPRNT,KMAX 
PRINT90,N ,NPRNT ,MPRNT ,<MAX 
READlOl  ,DELTA  ,ZMAX,A,L‘  ,ETA 
PRINT91 ,DELTA  ,ZMAX,A,B,ETA 
READlOl , (F ( I  5 , I  =  1 ,N  ) 

PR  INT92  ,  ( F ( I )  ,  I =1 ,N ) 

TPI=2. 0*3, 1416927 
DO  2  I=1,N 

2  W( I )  =  TPI*F( I  ) 

PRINT93, (W( I ) , 1=1 ,N) 

NTW0=2*N 
N2P2=NTWO  +  2 

observations 

READlOl , (BOBS ( 11,1=1 »NTWO) 

PRINT94, (BOBS( I ) , 1=1 tNTWO) 

INITIAL  APPROXIMATION 

K1=0 

PRINT95,X1 
PRINT97,A»B 
N2P1=NTW0  +  1 

lflag=i 

DO  3  1=1,435 

3  T(n=0,0 
T(2)»1.0 
T(3)*0ELTA 
DO  4  1=1,NTW0 

4  X(I, 11=0.0 
X(N2P1.11*ETA 

MX=1 

NE0=N2P1 
J=NEQ+3 
T( J1=ETA 
C 

CALL  INTS(  T,NEQ»2»0»0,0,0,0*0} 

C 

DO  8  M1=1,MPRNT 
DO  5  M2=l,NPRNT 
CALL  INTM 
MX=MX+1 
M  =  MX 
L  =  3 

DO  6  I=1,NTW0 
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L=L+1 

6  X(I.N')~7(L) 

L  =  L+1 
I  =N2P1 
ETA=TIL) 

5  X(I.M)=ETA 

8  CALL  OUTPUT 
C 

C 

C  SUCCESSIVE  APPROXIMATIONS 

C 

DO  25  Kl=l ,KMAX 
PRINT95.X1 
C 

C  PARTICULAR  AND  HOMOGENEOUS  SOLUTIONS 

C 

LFLAG=2 

M=1 

MX=M 

DO  9  I=l,NTWO 
PI I»1)=0.0 
DO  9  J=l»2 

9  H(I,J,H=0.0 
C 

N£0=3»N2P2 
DO  10  1  =  1 ,435 

10  T(I)=0.0 
T(2)=1.0 
T(3)=OELTA 

L  =  3 

DO  11  1=1 ,N2P2 
L  =  L  +  1 

11  T(L)=0.0 

DO  12  J=if2 
DO  12  I=1.N2P2 
L  =  L+1 

12  T(L)=0.0 

1=3  +  N2P2  +  N2P1 
T(  I  )  =  1.0 
J=3  +  NEQ 
T  I  J)  =  1  .0 

DO  13  I=1,N 
R  I  I  )  =X ( I , 1 ) 

J=I+N 

13  S ( I ) =X ( J, 1  ) 

ETA=X<N2P1.1) 

CALL  INTSI  T,NEO.2»0.C.0t0.C,0) 

L3=NEQ+3 

DO  18  M1=1.MPRNT 
DO  17  M2=1.NPRNT 
CALL  INTM 
M  =  M+1 


n  r>n 


-300- 


MX=M 
L  =  3 

DO  14  I=l,NTWO 
L  =  L-^1 

14  P(I.M)=T(L> 

L  =  L  +  2 

DO  151J=1,2 
DO  15  1=1, NT WO 
L  =  L  +  1 

15  H( I ,J,M)=T(L) 

151  L=L+2 

DC  16  1  =  1, N 
R(  n=X(  I  ,MJ 
J  =  N+I 

16  S{I)=X(J,M) 

17  ETA=X (N2P1 

18  CONTINUE 

BOUNDARY  CONDITIONS  DETERMINE  NEW  A,  B 


DO  20  1=1,2 
BVECI I )=0.0 
DO  19  K=l,NTWO 

19  BVEC(  I  )  =  BVEC(  I  )  +  .  i  (  K  ,  {  ,  M  )  *  (  BOSS  (  K. ) -P  f  K  ,M  )  ) 

DO  20  J=l,2 

AMAT( I ,J) =0.0 
DO  20  K=1,NTW0 

20  AMAT(  I  ,J) =AMAT(  I  , J)  +  M ( K  ,  I  ,m ) «h ( < , J ,M ) 

C 

D  =  AMAT  (  1  ,  1  )  *AyAT  (  2 , 2  )  -  A.VA  T  (  1  , 2  )  ►A^'A  T  (  2  » 1  ) 

A= (BVEC( 1 ) »AMAT ( 2 ,2 )  -  B VEC ( 2 ) ♦ AM A T ( 1 , 2 )  )  /  D 
3= ( BVEC( 2 1 *AMAT ( 1 , 1  )  -  BVEC ( 1 ) *AMAT (2 ,1 )  )  /  D 
PRINT97,Af B 
C 

C  NEW  APPROXIMATION 

C 

M=1 
MX  =  M 
T(2)=1.0 
X(N2P1  ,M) =A 
C 

Do  22  M1=1,MPRnT 
DO  21  M2=1i.NPRNT 
M  =  M+1 
MX  =  M 

T(2)  =  T(2)<-DELTA 

X(N2P1,M)=A  +  0» ( T ( 2 )-l .0 )**2 

ETA=X(N2P1 ,M) 

DO  21  I=l,NTWO 

21  Xn,.M)=P(I,M)  +  A*H(I,1,M)  +  B*H{I,2,M) 

22  CALL  OUTPUT 
25  CONTINUE 

GO  TO  1 
C 

100  FORMAT(6I12) 


r»  r\  r» 
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101  F0RMAT(6E12.8  ) 

90  FORMAT(1H06I20| 

91  FORMAT ( lH06e20. 8  ) 

92  FORMAT ( 1H06E2C. 8  ) 

93  FORMAT ( 1H08HOM£GA( I )/lX6E20,8) 

94  FORMAT(1H04X12H08SERVATIONS  /(5X5E20.8)) 

95  FORMAT! iH14X13HAPPRCXlMATION.  !3) 

96  FORMAT ( IHOFIO. 4/ ( 5X5E20.8 ) ) 

97  F0RMAT(1HC/>X  3HA  =,E16.8*  5X3HB  =»E16,8) 

END 

SiBFTC  DAUX  REF 

SUBROUTINE  DAUX 

DIMENSION  RV( 5) .SV( 5) .RPR£V(5J .SPREVI5) .FUNR(5) .FUNS(5) 

COMMON  T ( 435  I  .  N  .  NPRNT  .  MPRNT  .XMAX . DEL T A . 2MAX . A . B »E T A , F ( 5 ) tW( 5)  . 

1  NTWOtN2P2 .BOeS( 10) t LFL AG » N2P 1 ♦ X ( 7 .40 1 ).P(6.401),H(6.2.401)» 

2  BVEC(2) .AMAT(2.2) .R( 5) .S( 5) .MX.NEQ 
C 

GO  TO  (10.20)  .LFLAG 
C 

C  NONLINEAR 

C 

10  L»3 

DO  1  1=1, N 
L  =  L  +  1 

1  RV(I)=T(L) 

DO  2  1=1, N 

L=L  +  1 

2  SV(I)=T(l) 

£*1-^1 

ETA=T (L) 

ETAPRI=2.0*B*(T(2)-1.0) 

PR=ETAPRI/ETA 

DO  3  1=1, N 
L*L-H 

3  T(L)=0.5»PR  +  2.0*W( I )*SV( I )»ETA  -  PR* ( RV ( I ) **2-SV ( I ) **2 ) *0. 5 
DO  4  1=1, N 

L'E-Fl 

4  T(L)=-2.0*ETA*W'.  I  )*RV(  I  )  -  PR*RV  (  I )  *SV  (  I ) 

L  =  L-H 

T(L)=ETAPRI 
RETURN 

LINEAR 

20  ETA  =  A  B*(T(2)-1'0)**2 

ETAPR=2.0*B*(T(2)-1.0) 

PR=ETAPR/ETA 
0NDA»1,0 

0NDB*(T(2{“1.0)*»2 
0NPNDAx-ETAPR/ETA**2 

DNPNDB  =  2.0*( T(2 )-1.0)/ET/  - ( E TAPR* ( T ( 2 ) -1 .0 ) «*2 ) /ETA**2 

CPARTICULAR 

L»3 
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DO  5  I  =  1  .N 
L=L  +  1 

5  RV(I)=Ta> 

DO  6  I =1 .N 

L  =  L  +  1 

6  SV(I)=T(L> 

L«L  +  1 
ANEW=T(L) 

L  =  L  +  1 
BNEW»T (L» 

DO  7  I=1.N 
RPREV( I )=R( I ) 

7  5PREV( I ) =Si I ) 
mPREV=A 
BPREV=B 

DO  8  I =1 .N 

FUNRM  )=0.5*PR  +  2. 0«ETA*;^(  I  )  »S' I  )  -  (  R  (  I  )  (  I  )  *»2  )  *PR»0.5 

8  FUNS( I )=-2.0»ETA*a< I )*R( I )  -  R(I)*S(I)»PR 
IFLAG*0 

M=NEQ+3 

C 

100  IFLAG=IFLAG+1 
DO  iOl  1*1. N 

M»M+1 

T(M)=FUNR(I)  +  (RV(  I  )-RPREV(n  )»(-R(I)#P''.) 

T(M)  =  T(M)  +  (  SV(I  )-SPREvn  )  )*(2.C»ETA*W(  I  )  ■*-  S(I)*PR) 

T(M)sT(M)  +  ( ANEW-APREV)** C.5*0NPNDA+2.0»W( I )♦$( I )»DNDA 
1  -  0.5«(R( I )**2“Sa )*«2)*DNPNDA) 

101  T(M)=T(M)  +  (6NEW“BPREV)»<0.5*Di\F\03^2.0*W(I )»S( I )*DND3 

1  -  0.5»(R(  I  )**2“Sn )»*2)*0NPND3) 

DO  1C2  1*1. N 
M«M+l 

T(M)=FUNS(I)  +  (RV< I )-RPREV( I) )*( -2.0*ETA*W( I )-5( I )*PR> 
T(M)=T(yi)  +  (  SV(  I  >-SPREV(  I  )  )»  (-R(  !  )  *PR) 

T (M) =T (M)  +  ( ANEW-APREV)* (-2.0*W( I  5  *R(  I  )*DKDA-R( I ) *S( I ) *DNPNDA) 

102  T(M)*T(M)  *  (BNEW-8PREV)*(-2.C*W( I)*R( I )*D.ND3-R( I )»S( I )»DNPN0B) 

M  =  M  +  1 
T {M»  *0,0 
M  =  M+1 
T (M) *0,0 
C 

IFLAG-1  )50,50.201 
C 

CHOMOGENEOUS 

50  DO  201  Jal.2 
DO  51  I*1.N 

L*L-*-l 

51  RV(I;«T(L) 

DO  52  1*1. N 

L=L+l 

52  SV(I)»T(L) 

L  =  L  +  1 
ANEW=T(L) 

L  =  L  +  1 

bnew*hlj 


DO  53  1  =  1, N 
RPREVJ I ) =0.0 

SPREVl I ) =C.O 
FUNR( f  )=0.0 
53  FUNS(I)=O.C 
APREV=0.0 
8PREV=0.0 
GO  TO  100 
201  CONTINUE 
RETURN 
END 

SIBFTC  OUTPUT  REE 

SUBROUTINE  OUTPUT 

COMMON  T(A35)  ,N,NPRNT  ,MPRNT  »KK.AX  ,  DELT  A  ,  ZMAX  ,  A .  B  ♦E  TA  ,  F  (  5  )  »W(5)  , 
1.  NTWO,N2P2  ♦BO0S<  1 0  )  ,  L  FL  AG  ,  N2P  I  .  X  {  7  ,  AC  1  )  ,  P  (  6 . 4^  I )  ,  H  (  6 , 2  ,40 1)  * 

2  BVEC(2) ,AMAT(2,2 ) tRt  5 ) ,S( 5) ,MX,NEQ 
C 

PRINT92 
DO  4  1=1, N 
R<  n -XI  I, MX) 

J=  I+N 

4  S(n=X(J,MX) 

IF(MX-1)1,1,2 

1  PRINT91 

2  DO  3  1=1, N 

A.ypaSORT  {R(  I  )»«2+S(  n**2) 

PHI=ATAN2(S( I  )  ,R( I)  ) 

3  PRIN793»T(2) ,X(N2Pl ^MX ) , I ,R ( T ) ,${ 1) ♦ AMP, PH  I 
C 

90  FOR^'ATI  1HC4X3HA  =  ,E  18 . 8 , 5X3He  =,£18.6) 

91  FCRMAT(1HC1v^X1HX,6X8HINDEX(X) ,5X1HI,11X9HREAL  PART* 

1  11X9HIMAGINARY,  1U9HAMPLITUDE,15X5HPHASE//) 

93  FORMAT!  F 1 2 • 4  ,F 14 . 6 , I  6 , 4E20 .8 ) 

92  FORMAT (IHC) 

RETURN 

END 

seTnTRy  main 


3 

20 

20 

.0025 

1  .0 

l.I 

1.0 

2.0 

3.0 
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